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Foreword 

The  Extensive  Forest  Inventory  Project  for  the  Bureau  of  Land 
Management  (BLM)  Public  Domain  States  was  initiated  in  1970.   This 
project  was  assigned  to  the  Forestry  Staff,  Division  of  Standards  and 
Technology,  Denver  Service  Center  (DSC). 

The  DSC  Forestry  Staff  designed  and  carried  out  the  inventory  system 
project.   Field  work  was  accomplished  with  the  assistance  of  District 
field  crews.   Data  processing  was  done  by  the  Division  of  Automated 
Data  Processing  (ADP)  at  the  Denver  Service  Center.   All  phases  were 
completed  within  the  scheduled  timetable. 

Many  data  processing  programs  had  to  be  developed  to  file,  process, 
and  analyze  the  mass  of  photo  interpretational ,  field  plot,  computa- 
tional, and  forest  simulation  modeling  data. 

Most  of  these  programs  have  now  been  made  "interactive"  so  that  they 
can  be  used  directly  from  remote  terminal  locations.   The  remote 
terminal  Time  Sharing  System  (TSS)  has  recently  been  made  possible  by 
the  purchase  of  the  new  BLM  Honeywell  66/80  computer. 

This  Technical  Note  is  designed  to  provide  potential  users  with: 
(1)  an  explanation  of  the  DSC  Forestry-oriented  programs  and  (2)  a 
step-by-step  application  of  their  execution  from  a  remote  terminal. 

In  addition,  a  sample  or  program  product  report,  which  also  gives  an 
interpretation  of  the  shorthand  abbreviations,  is  available.   See  the 
envelope  inside  the  back  cover  for  microfiche  cards  containing  sample 
problems. 

The  extensive  inventory  system  uses  a  remote  sensing  (aerial  photo) 
interpretational  phase  and  a  ground  truth  (field  plot  establishment) 
phase.   Most  data  is  computerized  and  can  be  found  on  the  following: 

1.  Aerial  Photo  Interpretation  Data  Files 

2.  Field  Plot  Location  Data  Files 

3.  Sustained  Yield  Unit  Master  Files 

4.  Forest  Simulation  Modeling  (SIMIX)  Alternatives. 


Upon  completion  of  the  inventory  computational  phase,  the  timber 
management  planning  phase  was  initiated;  this  phase  is  generally 
called  "Allowable  Cut  Planning." 

Forest  lands  and  timber  stands  growing  upon  the  land  base  are  classi- 
fied according  to  forest  policy  and  economic,  biologic,  industrial  and 
physiologic  criteria.   The  same  timber  stand  may  be  classified 
differently  under  each  of  the  planning  system  concepts. 


in 


Potential  harvest  levels  are  developed  under  various  planning  system 
concepts  such  as:   unrestricted  tunnel  vision,  minimum  and  maximum 
funding,  multiple-use  restrictions,  wildland  management,  and  intensive 
forest  management. 

Under  the  policy  of  Continuous  Forest  Inventory  (CFI),  field  plots 
that  were  established  in  the  1970s  will  be  revisited  and  re-measured 
during  the  1980s  and  periodically  each  decade  thereafter. 

The  wise  application  of  ADP  programs  can  increase  the  efficiency  of 
field  foresters'  time  and  also  allow  them  to  undertake  projects  once 
thought  nearly  impossible  due  to  time  constraints  and  the  mass  of  data 
that  must  be  handled. 
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I.   Introduction 

Several  data  processing  programs  used  in  the  forest  inventory  and 
forest  management  systems  have  now  been  made  operational  for  remote 
terminal  usage  through  the  Bureau's  Time  Sharing  System. 

The  wise  application  and  use  of  specialized  data  processing  programs 
will  increase  field  foresters'  efficiency  and  allow  them  to  undertake 
projects  previously  considered  nearly  impossible  because  of  the 
detailed,  complicated  mathematical  computations  and  manipulations 
required. 

For  example,  computation  of  actual  periodic  growth  of  a  timber  stand 
requires  determining  present  tree  volume,  reconstructing  the  trees' 
measurements  as  of  10  years  ago  (through  the  use  of  height/growth 
data,  radial  wood  increment  data,  bark  growth  factors,  and  form  class 
changes)  and  computing  the  volume  difference  in  actual,  usable  wood 
volume.   When  thousands  of  trees  are  involved,  hand  calculations  of 
growth  becomes  an  impossible  task  for  a  forest  manager. 

An  objective  of  the  forest  management  planning  process  is  to  develop  a 
harvest  level  for  the  forest  that  is  consistent  with  biologic 
resources,  geologic  and  physiographic  conditions,  the  planning  system 
processes,  and  forest  management  policies. 

The  planning  process  involves  a  systematic  approach  for  measuring, 
quantifying,  analyzing,  and  evaluating  the  following: 

1.  Existing  timber  resources  of  the  forest. 

2.  Potential  productive  capabilities  of  the  timber  resource. 

3.  Productive  potential  of  the  forest  land. 

4.  Economic  value  of  timber  and  other  natural  resources. 

5.  Relationship  of  timber  values  to  other  forest  resource 
values  and  uses. 

To  analyze  the  forest  resources  of  BLM's  public  domain  timber  lands, 
an  extensive  forest  inventory  was  initiated  in  1970.   This  inventory 
project  was  assigned  to  the  Forestry  Staff,  Division  of  Standards  and 
Technology,  Denver  Service  Center. 

A  two-stage  inventory  system  involving  an  aerial  photo  interpreta- 
tional  phase  and  a  field  plot  establishment  phase  was  designed. 
District  crews  established  the  field  plots,  and  the  Denver  Service 
Center  handled  the  data  processing. 

Upon  completion  of  the  inventory  computational  phase,  the  timber 
management  planning  phase  for  each  of  the  17  sustained  yield  harvest 
units  was  undertaken.   This  phase  is  generally  called  the  "allowable 
cut  development  phase"  and  uses  the  SIMIX  forest  modeling  system. 


Many  data  processing  programs  had  to  be  developed  to  file,  process, 
and  analyze  the  tremendous  mass  of  photo  interpretational,  field  plot 
record,  computational,  and  forest  simulation  modeling  data.   A  typical 
forest  inventory  unit  contains: 

1.  A  photo  master  file  of  approximately  8,000  to  10,000  photo 
interpreted  points  (each  is  112  character  records  in 
length). 

2.  A  field  plot  location  master  file  of  500  to  1,000  field  plots 
containing  approximately  10,000  individual  tree  records 
(each  tree  record  is  632  character  records  in  length). 

3.  A  series  of  10  to  30  potential  forest  harvest  level 
alternatives  developed  through  the  forest  simulation  modeling 
system. 

Numerous  regression  equations  were  developed  during  the  analysis  and 
computational  phases  to  develop  character  records  such  as:   tree  form 
class,  annual  diameter  increment,  net  volume  per  acre,  site  quality, 
mortality  projections,  predicted  growth,  etc.   Combined  tree,  site, 
stand,  and  age  class  data  were  used  to  project  future  yields  under 
both  nontreated  and  treated  conditions.   Several  levels  of  intensive 
management  (silvicultural  practices)  were  prescribed  and  analyzed, 
conforming  with  economic  investment  criteria. 

In  1979,  a  new  Honeywell  Model  66/80  computer  was  purchased  to  replace 
the  old  Burroughs  5500.   In  addition,  the  DSC  was  reorganized,  and  the 
Division  of  Standards  and  Technology  was  dissolved.   To  provide  needed 
forestry  assistance  and  services  to  State  Office  and  District  staffs, 
the  Division  of  Special  Studies  forester  scheduled  a  work  assignment 
to  update  pertinent  data  processing  programs  for  operation  on  the 
Honeywell.   These  programs  were  converted  to  an  "interactive"  mode  so 
that  potential  users  could  operate  them  directly  from  remote  terminal 
locations  throughout  the  Bureau. 

This  Technical  Note  is  designed  to  provide  users  with  an  example  of 
the  product  (report)  and  a  step-by-step  procedure  of  the  necessary 
keyboard  inputs  required  to  produce  the  report  through  the  Time 
Sharing  System. 

It  is  recommended  that  persons  not  familiar  with  data  processing 
techniques  take  some  of  the  courses  offered  through  the  DSC's  Learning 
Center,  such  as:   (1)  the  Terminal  Users'  Course,  and  (2)  Introduction 
to  the  H6000  Series,  Honeywell  Computer. 

Each  of  the  individual  program  sections  contains  information  about 
program  execution  and  the  response  one  must  give  to  the  queries  as 
they  appear  on  the  terminal.   These  sections  show  how  to  monitor  the 
job,  hopefully  to  the  "Normal  Termination"  point. 


The  photo  interpretation  computer  and  field  plot  master  file  layouts 
are  shown  on  pages  15  and  25.   To  extract  desired  information  from 
these  files,  the  position,   picture  codes,  and  item  codes  must  be 
identified. 

Program  users  must  have  an  account  number  (Users'  Master  Catalog) 
including  password  and  file  storage  space.   The  BLM  Computer  Users' 
Guide  (Information  Release  #1)  tells  how  to  request  an  account  number. 
These  requests  are  normally  routed  through  State  ADP  Coordinators  to 
Technical  and  User  Support,  Divison  of  Data  Systems  Technology,  D-221. 

To  obtain  "read"  permission  and  assistance  in  using  these  programs, 
please  contact  the  Division  of  Special  Studies,  D-450,  Forestry,  at 
FTS  234-2374,  or  the  Division  of  Data  Operations,  D-236,  Maintenance 
Programming  and  Assistance,  at  FTS  234-2267. 

Some  programs  discussed  in  this  Technical  Note  have  not  yet  been 
converted  for  universal  use  by  all  potential  users.   Other  programs 
such  as  SIMIX  require  a  specialized  set  of  23  pages  of  input  forms  and 
possibly  a  training  program  for  program  execution  and  interpretation 
of  printouts.   Also,  some  program  execution  directions  may  be  revised 
periodically  due  to  modifications  in  either  computer  hardware  or 
software.   If,  while  trying  to  operate  one  of  the  programs,  a  message 
is  received  on  your  terminal  such  as:   Request  Denied,  Non-Existent , 
Permission  Not  Granted,  Not  in  TSS  Format,  Block  Sequence  Error,  etc., 
and  you  are  unable  to  resolve  the  problem,  please  contact  the  DSC 
offices  listed  above. 


Sample  Problems 
(Microfilmed) 

1.  Polynomial  Regression 

2.  Stepwise  Regression 

3.  Investment  Analysis 


Please  refer  to  the  pocket 
envelope  inside  the  back,  cover, 


II.   Time  Sharing  Programs 

Honeywell  Informations  Systems,  Inc.,  publishes  a  series  of  manuals 
describing  the  operation  and  maintenance  of  special  purpose  subsystems 
and  the  batch  type  programs  that  are  available.   A  few  of  these  are: 
General  Information;  Software,  File  Management  Supervisor;  Text 
Editor;  Time  Sharing  Systems,  Terminal/Batch  Interface;  and  Fortran. 

This  chapter  contains  several  excerpted  functions  and  commands  that 
are  useful  in  executing  individual  programs.   The  users  are  encouraged 
to  develop  their  own  file  of  aids  which  provide  useful  library 
material  for  programs  used  only  periodically. 


A.   Create  a  Catalog,  Create  a  File,  Etc. 

The  File  Management  Supervisor  administers  information  about  files  and 
authorized  users.   In  the  user  substructure,  the  User  Master  Catalog 
(UMC)  indexes  catalogs,  subcatalogs,  sub-subcatalogs,  and  files.   The 
Access  Subsystem  provides  an  interface  between  remote  terminal  users 
and  the  File  Management  Supervisor. 


1.   Procedures. 

Use  the  following  procedure  to  create,  modify,  purge,  protect,  etc.,  a 
catalog  or  file  title  or  file  space  under  a  specific  catalog  listing. 
The  system  will  provide  a  list  of  queries  for  the  catalog  and  file 
specifications',  such  as:   File  Name,  Originator,  Maximum  File  Size, 
General  Permissions,  etc. 

The  underlined  words  or  sympbols  shown  are  the  responses,  queries,  or 
answers  printed  by  the  terminal.   User  responses  to  queries  are 
identified  by  apostrophies. 

a.   Log  On  by  calling  the  appropriate  telephone  number.   The 
terminal  will  request  that  you  identify  the  terminal  that  you  are 
using:   ENTER  ID,  TRML ,  PW 
?  'T999,TYP9f 

(The  above  request  has  been  eliminated  at  the  DSC.) 

Respond  with  the  correct  terminal  identification  as  shown  above.   The 
terminal  will  then  request  your  user  identification  code  and  your 
secret  password  as  shown  below: 


b.   USER  ID  'A134' 


c.   PASSWORD 


d.  'XXXXX'XXXXX 

e.  *_       The  asterisk  shows  that  all  systems  are  ready  to  go. 
In  response  to  the  asterisks,  type  in  the  word  ACCE.   ACCESS  is  a  sub- 
system of  the  file  system  that  allows  the  user  to  create,  modify, 
delete,  etc.  catalogs,  subcatalogs,  and  file  space. 


f.   *  ACCE   -   The  word  FUNCTION?  will  be  printed.   Respond 
with  the  function  you  wish  to  perform,  such  as:   LC  (list  the  names  of 
your  catalogs),  CF  (create  a  file  name  and  file  space),  etc.   Type  in 
the  letters  CF  after  the  word  FUNCTION  appears. 


g.   FUNCTION?   'CF'   The  computer  has  now  been  requested  to 
create  a  file  under  your  user  identification  number. 

h.   Respond  to  the  machine  queries  as  requested.   To  test 
the  results  of  your  input,  return  to  the  system  level  and  ask  for  a 
print  listing  of  the  information  about  your  file  space  that  the 
computer  has,  as  shown  by  the  following  example: 

*'CATA  /DATA/DATA5' 

Data  file  number  5  was  created  on  Feb.  11  and  has  been 
modified  on  Feb.  14.   The  entire  following  listing  is 
printed: 

FILE  NAME-DATA5 

ORIGINATOR-A134 

DATE  CREATED-021180 

DATE  CHANGED-021480( 15.092) 

LAST  DATE  ACCESSED-021980 

NUMBER  OF  ACCESSES-21 

MAX  FILE  SIZE-50  LLINKS 

CURRENT  FILE  SIZE-13  LLINKS 

FILE  TYPE-LINKED 

DEVICE-DP7 

GENERAL  PERMISSIONS-R,W , A, E 

SPECIFIC  PERMISSIONS-NONE 


2.   Procedural  Notes. 

a.  Users  must  have  sufficient  file  space  available  under 
their  UMC  authorization  code. 

b.  Users  should  keep  a  personal  record  of  their  catalogs 
and  files  and  their  contents  for  ready  reference. 


c.  Refer  to  the  TSS  General  Information  Manual  for  a 
definition  of  general  and  specific  permission. 

d.  Files  can  also  be  created  through  the  use  of  the  "SAVE" 
and  "RESAVE"  commands  and  other  systems  as  defined  in  the  TSS  Manual, 


B.   Loading  Data  Into  Permanent  Files. 

The  CRUN  command  initiates  processing  of  the  input  command  file,  which 
contains  the  user's  terminal  responses  in  the  proper  order.   The  LOAD 
DATA  command  uses  the  LODX  subsystem,  which  provides  a  service 
function  for  the  Time  Sharing  System.   Note:   CRUN  is  pronounced  as 
two  words,  i.e.,  C  RUN. 


1.   Procedures. 

The  following  procedure  for  executing  CRUN  DATA/LOADDATA  will  transfer 
keyed  data  from  a  key-tape  to  a  permanent  disc  file.   This  data  file 
will  remain  intact  until  it  is  overlain  with  new  keyed  data,  or  until 
the  disc  file  that  it  occupies  is  released. 

a.  Log  On 

b.  USER  ID  'A134*  (Users  UMC) 

c.  PASSWORD 

d.  ' XXXXX ' XXXXX 

e.  *  When  the  asterisk  appears,  enter  A134/LOADDATA,R 
and  punch  the  CR  key.   The  following  request  will  appear: 

ENTER  USER  IDENTIFICATION. 


f.   Key  in  your  user  identification  code.   Then  punch  the 
carriage  return  key. 

Users  outside  of  the  DSC  using  central  computer  high  speed  prints  are 
requested  to  enter  their  Mail  Code  and  Name  on  the  $IDENT  card  along 
with  their  UMC,  i.e.,  $IDENT  UMC,  MAIL  CODE  NAME. 

EXAMPLE:   $IDENT  A000,  UT-930  JANE  DOE 

This  procedure  will  insure  that  the  listing  will  be  sent  to  the  user 
in  a  timely  manner.   All  listings  carrying  a  mail  code  will  be  sent 
out  as  priority  mail. 


Only  the  first  nine  spaces  following  the  comma  will  appear  as  the 
banner  (letters  one  incli  tall  on  the  first  page  of  each  job  report). 

The  A134/LOADDATA  program  will  go  to  a  normal  termination  without  the 
need  for  printing  a  report  of  your  job  request.   Check,  the  contents  of 
your  data  file  by  using  the  CONVERT  and  EDIT  systems. 

After  entering  your  ID,  a  second  message  request  will  appear: 

ENTER  TRANSACTION  REEL  NUMBER. 

g.   Key  in  the  key-tape  number  (Example:   K999)  containing 
the  transaction  data.   Key-tape  numbers  are  assigned  by  the  Operations 
Branch  of  Data  Processing  and  are  entered  in  PRMFL  A150.   Users  must 
obtain  permission  from  Key  Entry  to  "read"  the  key  entry  file  and  copy 
the  data  onto  their  permanent  file. 

h.   Punch  the  Carriage  Return  key.   The  terminal  will  then 
print  the  following  words: 

ENTER  OUTPUT  FILE  CATALOG  STRING. 


i.   Key  in  the  name  of  the  permanent  disc  file  on  which  the 
transaction  data  will  reside  and  punch  the  carrage  return  key.   The 
terminal  will  then  print  the  following  job  information: 

*RUN 

SNUMB  //  XXXXT 

*COUT 
* 

The  job  apparently  was  accepted  and  will  go  to  normal  termination. 

j.  To  monitor  the  job  execution,  key  in  JMON'  "SNUMB" 
as  shown  In  the  following  sample  upon  receiving  an  asterisk  (*) 
prompt : 

*  JMON  1660T 

1660T-01  -  WAIT  TAPE  @  14.310 
1660T-01  -  WAIT  CORE  @  14.325 
1660T-01  -  EXECUTING  @  14.328 
1660T-01  -  SWAPPED  @  14.329 
1660T-01  -  EXECUTING  @  14.330 
1660T  -  OUTPUT  WAITING  @  14.333 
NORMAL  TERMINATION 

k.   Upon  Normal  Termination,  release  the  SNUMB.   Punch: 
RELE  "SNUMB" 


2.   Procedural  Notes. 

a.  Users  must  have  file  space  available  and  ready  to 
receive  all  of  the  data  on  the  key  tape.   Check  the  maximum  file  size. 

b.  Users  should  keep  track  of  the  contents  of  each  file. 

c.  Upon  normal  termination,  users  may  proceed  directly  to 
the  execution  of  a  regression  problem,  a  SIMIX  run,  the  REX  System,  an 
IVST  Program,  CONVERSION  and  EDIT  Programs,  or  other  OBJECT  or  DATA 
programs. 


3.   List  Job  Control  Language. 

*OLD  A185/JCL/LOADTREE,R 
*LIST 

##N,J 


IDENT:22222 

CONVER 

TAPE7:IN,XID, , 1 1 1 1 1 , ,XACTIONS , ,DEN5 

INPUT : LODENS , MBCD , NLABEL , NSER , FIXLNG/ 1 4 

PRMFL:OT,W,S, 33333 

ENDJOB 


4.   List  CRUN. 

*LIST/LOADDATA 


##*NULL 

OLD  A185/JCL/LOADTREE,R 

SYST 

$*$MARK 

$*$MARK 

EDIT  CASE 

RS:?22222? 

$*$USER  =  ENTER  USER  IDENTIFICATION. 

$*$NULL 

RS:/111 1 1/ 

$*$USER  =  ENTER  TRANSACTION  REEL  NUMBER. 

$*$NULL 

RS:?/?33333? 

$*$USER  =  ENTER  OUTPUT  FILE  CATALOG  STRING. 

$*$NULL 

SYST 

COUT  NULL 

RUN 

COUT 

*(Computer  is  waiting  for  a  new  command.) 


C.   Converting  BCD  to  ASCII  to  BCD. 

The  CONVERT  subsystem  employs  commands  that  permit  conversion  of  t 
information  from  one  text  file  format  to  another.   Refer  to  the  TSS 
Terminal  Batch  Interface  Manual  for  details  on  the  CONVERT  Subsystem. 

Data  submitted  to  the  Key  Entry  Branch  for  keypunching  is  entered  on 
the  file  in  BCD  format. 


1.   Procedure. 

The  CONVERT  Program  converts  BCD  machine  language  to  ASCII  language  so 
that  the  file  may  be  read  in  conversational  English  for  editing  and 
other  purposes.   The  files  must  be  converted  back  to  the  BCD  language 
for  proper  machine  execution  of  the  program. 

a.  Log  on 

b.  USER  ID  fA134» 

c.  PASSWORD 

d.  'XXXXXXXXXXXX' 

e.  ^_       When  the  asterisk  appears,  enter  CONVERT  and  the 
disc  file  name.   Example:   "CONVERT  /DATA/DATA1" .   Upon  completion  of 
the  conversion  process,  another  asterisk,  will  appear. 

f.  When  this  asterisk  appears,  enter  the  EDIT  mode  so 
that  the  current  file  may  be  printed,  reviewed  or  updated. 
Example:   _^'EDIT  VERI  STRI  CASE'   -  This  sample  coding  requests 
verification  of  edit  corrections  made  in  either  upper  or  lower  case 
and  in  a  string  mode. 

g.  Perform  Edit  operations  of  the  file  data  as 
required.   The  Edit  program  prints  a  dash  "-"  as  a  prompt  message. 


2.   Resaving  Edited  Data. 

To  save  and  replace  the  edited  data  back  onto  the  same  disc  file. 

a.   Key  in  the  word  "RESAVE"  in  response  to  an  editor 
dash  "-"  prompt,  and  identify  the  file  you  wish  to  save.   Example: 
-RESAVE  /DATA/DATA1.   Put  edited  Data  // 1  file  information  back  onto 
the  computer's  disc  space. 
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b.   End  the  edit  function  with  the  response  "DONE" 
immediately  after  a  dash  "-"  edit  prompt.   Example:   -DONE 
An  asterisk  will  then  appear.   The  user  must  now  reconvert  the 
corrected  data  from  the  ASCII  language  to  the  BCD  language  so  that  the 
computer  can  operate  object  programs  as  requested. 


3.   Reconverting  ASCII  to  BCD. 

To  place  the  edited  file  back  onto  the  disc  file  in  machine  language, 
do  the  following: 

When  the  asterisk  appears,  enter  the  CONVERT  command,  identify  the 
files  used,  condense  the  file  back  to  an  80  column  (card)  format,  and 
verify  the  process. 

Example  1: 

*C0NVER  /DATA/DATA1  =  /DATA/DATA1 : BCD,  C(l-80),  V 
Example  2: 

*C0NVER  *=/DATA/DATAl:BCD,  C(l-80) 


The  second  example  uses  an  asterisk  to  identify  the  "current"  file  and 
does  not  request  a  verification  of  the  action. 


D.   In  Limbo  Option:   At  the  End  of  the  Day. 

Your  job  may  have  been  placed  in  limbo  for  extended  periods  of  time 
for  a  variety  of  reasons.   The  computer  may  be  waiting  for  peripheral 
equipment,  it  may  be  overloaded,  your  job  may  have  a  low  priority,  or 
a  breakdown  may  have  occurred. 

You  may  not  be  available  to  direct  the  completed  job  to  the  printer 
after  it  has  gone  to  normal  termination.   The  following  system  allows 
you  to  leave  with  your  carpool  and  be  assured  that  sometime  during  the 
night  your  project  will  be  completed: 

Example:     (Job  in  Progress) 

6666T-01  WAITING  CORE  @  17.501 

Time  to  leave  with  carpool 

Step 

#1.   Punch  the  break  key:   BR 

An  asterisk  appears 
#2.   Punch:   UNJO  "snumb",  i.e.,  UNJO  6666T 
#3.   Punch  the  Carriage  Return  key:   CR 
#4.   Pick  up  the  job  the  next  morning. 
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E.   Other  Honeywell  Systems.  1 

Refer  to  the  Level  66,  TSS  General  Information  Manual  for  the 
functional  listing  of  Honeywell  publications  which  cover  all  phases  of 
computer  operations.   Refer  to  individual  Honeywell  manual  sections 
for  a  full  explanation  of  each  TSS  subroutine. 
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III.   Photo  Interpretation  Phase 

Numerous  photo  identification  points  were  selected  and  identified  on 
large-scale  aerial  photographs  during  the  P.I.  phase  of  the  two-stage 
inventory  system  (see  p.  14,  DSC  5214-1). 

From  4,000  to  27,000  P.I.  points  were  recorded  for  each  of  the  17 
sustained  yield  inventory  units.   Point  locations  were  also  trans- 
ferred from  the  aerial  photos  onto  large-scale  topographic  maps. 

Both  photo  and  map  data  were  recorded  on  DSC  forms,  keypunched,  and 
coded  onto  the  P.I.  Master  File  computer  tape. 

The  Data  File  Layout  Sheets,  pages  15  and  16,  shows  the  data  elements 
and  their  attributes.  The  control  number  refers  to  DSC  Form  #1265-23 
where  detailed  specific  information  about  each  element  is  recorded. 
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DSC-1265-26 
March   197  2 


DEPARTMENT   OF   THE   INTERIOR 
Bureau  of  Land  Management 

DATA   FILE   LAYOUT  SHEET 

PD   EXTENSIVE   FOREST    INVENTORY    SYSTEM 


GPO    340-675 


PROGRAM   NAME:       PD-INVENTORY    SYSTEM 

ID: 

PAGE     1  OF    2 

FILE   NAME:                          PHOTO    INTERPRETATION   MASTER 

FROM: 

TO: 

DESCRIPTION    FD  MD  SDi            PI-MSTR 

JL  INPUT   [XJ  OUTPUT 

FILE   CONTAINS: 

ACCESS  MODE:                SEQUENTIAL 

BLOCK-             20-RECORDS 

RECORD:  112    CHARACTERS 

LABEL:                            STANDARD 

VALUE   OF   ID: 

ADFL202    &   AMFL204 

SAVE  FACTOR: 

DATA  RECORD  (Oil                      PI-REC 

ACTUAL   KEY: 

FILE  SEQUENCE: 


LOCATION    (EACH) 


LEV 


DATA    ELEMENT    MNEMONIC 


INQ- 
CNTL 


ADD 

ITM 


PICTURE 


POSITION 


BEG 


END 


SIZE 


CONTROL 
NUMBER 


01 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
05 
10 
10 
05 
10 
10 
10 
10 
05 
05 
10 
10 
10 
10 
05 
10 
10 
05 
10 
10 
10 
10 
10 
10 
10 


PI-RECORD 
INV-UNIT 
SER 
ST 

CNTY 
DIST 
PLN-UNT 
SURV-UNT 
HYDRO 
RGN 
CIRCL 
PM-ZONE 
PI-PNT-CNT 
INTPR 
PI-DATE 
PI-MO 
PI-YR 
PHOTO-DATA 
SYMB 
ROLL 
PHOTO 
PI-PNT 

FILLER 
ST-COORD 
ST-EAST 
FILLER 
ST-NRTH 
FILLER 
UTMS 
EASTING 
NORTHNG 
LEGAL 
TWP-NO 
TWP-FRCT 
TWP-DIR 
RNG-NO 
RNG-FRCT 
RNG-DIR 
SEC 


(R) 


(R) 


01 

02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 

14 
15 

16 
17 
18 
19 


20 


21 


23 

24 

25 
26 
27 
28 
29 
30 
31 


15 


X(112) 

99 

999 

99 

999 

99 

99 

9 

99 

999 

9 

99 

9999 

9 

XXXX 

99 

99 

X(ll) 

XXX 

XXX 

XXX 

99 

XXX 

X(12) 

9(5) 

X 

9(5) 

X 

X(12) 

9(6) 

9(6) 

X(12) 

999 

9 

X 

999 

9 

X 

99 


001 
001 
003 
006 
008 
011 
013 
015 
016 
018 
021 
022 
024 
028 
029 
029 
031 
033 
033 
036 
039 
042 
044 
047 
047 
052 
053 
058 
047 
047 
053 
047 
047 
050 
051 
052 
055 
056 
057 


112 
002 
005 
007 
010 
012 
014 
015 
017 
020 
021 
023 
027 
028 
032 
030 
032 
043 
035 
038 
041 
043 
046 
058 
051 
052 
057 
058 
058 
052 
058 
058 
049 
050 
051 
054 
055 
056 
058 


112 
2 
3 
2 
3 
2 
2 
1 
2 
3 
1 
2 
4 
1 
4 
2 
2 

11 
3 
3 
3 
2 
3 

12 
5 
1 
5 
1 

12 
6 
6 

12 
3 
1 
1 
3 
1 
1 
2 


070 
190 
101 
103 
111 
112 
102 
191 
198 
199 
186/166 
197 
177 

105 
106 

181 
182 
183 
184 


167 
168 

187 
161 
162 
188 
163 
164 
189 


DSC-1265-26 
Morch  1972 


DEPARTMENT    OF    THE    INTERIOR 
Bureau  of  Land  Management 

DATA    FILE    LAYOUT   SHEET 


- 


PROGRAM   NAME:      PD-INVENTORY    SYSTEM 


ID: 


PAGE    2    OF      2 


FILE   NAME:        PHOTO    INTERPRETATION 

MASTER 

FROM: 

TO: 

DESCRIPTION     FD  MD  SD)            PI-MSTK 

OUTPUT 

FILE  CONTA.-.; 

ACCESS  MODE:          SEQUENTIAL 

BLOCK: 

20-RECORDS 

RECORD:    112    CHARACTER: 

LABEL:                STANDARD 

VALUE   OF 

ID:    ADFL202    &   AMFL204 

SAVE  FACTOR: 

DATA  RECORD   (01)      PI-REC 

ACTUAL    - 

FILE  SEQUENCE:         LOCATION    (EACH; 

INO- 

ADD 

POS 

IE  / 

DATA   ELEMENT    MNEmC'-"- 

CNTL 

I  '1  M 

PlCTUPE 

SEO 

05 

STRATA 

'32 

99 

059 

060 

2 

107/108 

05 

P.I.    DENS 

33 

99 

061 

2 

135 

05 

CRWN-DIA 

34 

99 

06  3 

064 

2 

130 

05 

STND-HGT-X 

X(3) 

065 

067 

3 

10 

FILLER 

XX 

• 

066 

2 

10 

STND-HGT 

37 

9 

067 

067 

1 

122 

05 

STND-HGT-9                                        (R) 

37 

999 

065 

067 

3 

122 

05 

STND-VOL 

38 

+ 

S999 

068 

070 

3 

149 

05 

STND-ISOL 

39 

X(5) 

071 

075 

5 

10 

I SOL-ACRES 

99 

071 

072 

2 

151 

10 

ISOL-DIST 

99 

073 

074 

2 

151 

10 

ISOL-TYPE 

X 

075 

075 

1 

05 

PI-FORS-TYP 

40 

99 

076 

077 

2 

156 

05 

PI-ASP 

41 

X 

078 

078 

1 

153 

05 

PI-SLP 

42 

X 

079 

079 

1 

154 

05 

PI -PHY 

43 

X 

080 

080 

1 

155 

05 

ELEV 

44 

999 

081 

083 

3 

195 

05 

TRTMT 

45 

99 

084 

085 

2 

150 

05 

LND-RESTRCT 

46 

99 

086 

087 

2 

160 

05 

SOIL-TYPE 

47 

xxxx 

088 

091 

• 

192 

05 

MAP-QUAD 

48 

XXX 

092 

094 

3 

165 

05 

TRAN-ZONE 

XX 

095 

096 

10 

OWNRSHP 

9 

095 

095 

1 

10 

PI-SINDX                                              (R) 

X 

095 

095 

1 

10 

LOCATN 

9 

096 

096 

1 

05 

PI-ACRS 

51 

+ 

999V999 

097 

102 

6 

109 

05 

ADJ-FCTR 

52 

+ 

9V9999 

103 

107 

5 

196 

05 

LOC 

53 

999 

108 

110 

3 

05 

FILLER 

XX 

111 

L12 

P.I. 

File   modified    in    1980    through   Pr 

ogram 

ACFL3 

)0. 

P.I. 

File  was   expanded    to   a    length   of 

150   c 

harac 

:ers. 

05 

Consecutive   No. 

9(b) 

113 

118 

6 

05 

TPCC 

X(8) 

119 

B 

05 

TPCR-W 

XX 

L27 

128 

) 

05 

MFP   REST. 

X(8) 

129 

136 

- 

05 

FILLER-Site-Soil-etc . 

16 

X(14) 

137 

150 

• 

IV.   Field  Plot  Location  Data 

All  field  plot  location  data,  both  measured  and  observed,  are  recorded 
on  a  series  of  DSC  forms  which  have  been  modified  over  the  years. 
An  example  of  Form  DSC  5215-1  follows  on  the  next  page. 

The  keypunched  data  are  subjected  to  an  edit  program  and  recycled 
until  the  edit  printout  emerges  error  free.   A  permanent  file  tape  is 
stored  in  the  computer  archives.   Not  all  errors  or  omissions  found 
were  corrected  or  updated  on  the  original  field  sheets;  therefore,  it 
is  essential  to  maintain  a  corrected  file  of  permanent  field  sample 
plot  data. 

Programs  for  keying  and  editing  original  extensive  forest  inventory 
plot  data  have  not  been  converted  for  use  on  the  Honeywell  Time 
Sharing  System.   When  it  becomes  necessary  to  re-measure  these  field 
plots,  notify  the  Service  Center,  and  special  printouts  can  be 
developed  to  display  the  required  data. 
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V.    Location  Observation  Worksheet 

The  location  observation  worksheet  DSC  5215-4  (p.  20),  was  developed 
because  of  the  need  to  record  general  (observed)  data  about  the  field 
plot  location  and  the  forest  acreage  surrounding  the  plot  location. 
It  is  a  form  for  recording  the  following:   (1)   timber  stand 
prescription  comments;  (2)  nontimber  uses,  both  actual  and  potential; 
(3)  wildlife  habitat  condition  and  use;  (4)  timber  stand  condition; 
(5)  accessibility;  (6)  physical  site  condition,  etc.   It  is  also  used 
by  field  crews  as  a  checklist  to  assure  that  miscellaneous  management 
facets  of  timber  production  are  reviewed  before  leaving  the  plot 
scene. 

Carefully  completed  worksheets  save  countless  hours  of  travel  time  and 
duplication  of  effort  by  providing  forest  managers  with  a  dated, 
permanent  record  of  individual  timber  stands  for  planning,  scheduling 
and  operational  activities. 

Observation  worksheets  have  undergone  several  major  revisions  during 
the  past  decade.   Additional  revisions  or  updates  are  usually 
necessary  as  new  needs  arise  or  management  emphasis  changes. 

Observation  worksheet  data  is  keypunched  onto  a  separate  data  tape, 
printed  on  an  ADP  report,  and  edited.   This  data  may  or  may  not  have 
been  transferred  onto  the  master  file  for  the  inventory  unit. 

Additional  field  plot  location  data  may  be  required  for  specific 
purposes.   A  copy  of  Form  7310-18,  Comparison  Area  Data:  Soil  Surface 
Factor-Ground  Cover,  is  on  page  21.   Soils  information  was  recorded  on 
watershed  management  forms  on  most  forest  inventory  units. 


19 


DSC 

April 


UNITED    STATES   DEPARTMENT   OF    THE   INTERIOR 
BUREAU    OF    LAND   MANAGEMENT 


FILE    ID 
ACFL    221 

BLM   FOREST   INVENTORY  - 

COMMENTS 

LOCATION 

OBSERVATION    WORKSHEET 

AREA  IDENTIFICATION 

INVENTORY    UNIT                                      1 

LOCATION    NO           1           1            1           1 

ACTION                                                      I      3    | 

DATE 

'>(.</ 

CARC 

1: 

8 

14 

15 

STOCKED   AREAS 

42 

43 

NON  STOCK  EO  areas 

5lt 

o 

"H    01 

0  5 

1  — 

© 

UJ 

rx 

o     >. 

a    a 
0     0 

c    c 
Z    o 
a   O 

0) 

c 
5     a 

z 
0 

OS 

O 
a 

SPECIES 

Total 

Stand 

Aqe 

Percent  of 

Canopy 

Cover 

A  veroge 

Growth 

Rale 

^ears  con 
be  held  on 
stump 

-     ent 
Ground  C 

Smce 

Hon- 

•  "9 

5 

E 

a 

o 

TJ 
C 
0 

- 

s 

so 

Sod 

-- 

low 
Brush 

XXX 

A 

B 

XX 

XXX 

XXX 

XXX 

XX 

C 

XX 

XX 

XX 

/ ' 

XX 

XX 

'  ' 

11/ 

I 

Over 
15-28i 

CARC 

1    2: 

Under 
.29-42) 

M 

Principal 
Stand  Condition 

Non  Timber 
Uses 

Physical 
Condition 

RATING 

"5 

> 

0> 

s 

>- 
o 

o 

5 

4) 

o> 

O 

E 

o 

a 

a 
c 

D 
o 

6 

0 

E 

c 

< 

o> 

s 
t 

o 
Q 

v 

01 

o 
E 

0 

O 

0) 

r 

a 
aj 

O 

5 
E 

< 
V 

i 

c 
< 

u 
E 
o 

a 

e 
a 
0 
or 

c 
c 

i 

c 
o 

q 
i 

o< 

01 

JO 

6 

c 

01 

E 

01 

> 

0 

5 

o 

5 

01 

a 

0 

a 
a 

C£ 

3 

0 

Of 

a 

41 
01 
U1 

Sii  •- 

Area 

Affected 

Acres 
68-70 

i  on 
Coerf   CI 

71-72 

-. 
6 

>  i 

X 

X 

E 

F 

G 

X 

H 

X 

i 

j 

K 

X 

I 

X 

X 

X 

X 

X 

X 

X 

... 

• 

Light   8-27) 

1 

Medium    28-47 

Heavy    48-671 

CARD 

h 

8  WINDFALLS 

SNAGS 

ACCESSIBILITY 

PRESCRIPTION 

31 

32                                 39 

No  /Ac 

I 

CO 

O 

01 

> 

< 

< 

o 

Z 

i 

CO 

O 

0) 

> 

< 

Nearest 
road  Imi 

itenthsl 

o> 
c 
o 

_C 

<J 
-a 
o 
o 
ac 

>- 

o 
o 

0 

a 
O 

o 

Z 

-<=    ? 
5  .2 

Yeors  to 

Next  Cui 

Harvest 
Method 

o 

•s  i 

o  i 

i/>  o 

c 
0 

a>  c 

c     - 

i      0 

c    a 
o    • 
a   a 

c 

0> 
>      01 

;    o" 

2   § 

£   i 

Wildlife 

Use 

Bio  -it 
Sp* 

1 

1 

1 

4 

XX 

XX 

XX 

XX 

XXX 

M 

N 

O 

0 

XXX 

P 

Q 

R 

R 

S 

S 

■ 

X 

■ 

X 

Hedgeo 
32-35 

B 

c 

D 

E 

Not 

Hedged 

36-39 

A 

. 

-3d 

• 

.: 

5 

7 

1 

o 

•     ■ 

. 

- 

LOw    »< 

P 

. 

- 

- 

5 

- 

a 

•ep'Od 

: 

- 

n 

Nonstock  ed 

0 

Nonstocked 

1 

Accleroting 

1 

Logging 

1     Bark  Beetles 

i 

Immature  Only 

1. 

Seedlings 

2. 

Decelerating 

2 

Fire 

2    Deloliators 

2 

Mature  Only 

2. 

1.0"  -  5.0"  dbh 

3 

Stagnant 

J 

Insects 

3    Other 

3 

Two-story  1    Mature 

3. 

5.0"  -9.0" 

4 

Constant 

4 

Disease 

4. 

Overmature 

4 

90"  -  160" 

5 

Rodents 

5 

Multistory 

5. 

16.0"  plus 

6 
7. 
8 

Grating 

Unstable 

Other 

1     Foreground 

2.  Foreground  nc ' 

3    Background 


1     Rusts 

1 

Porcupine 

1 

Snow 

1     Deer 

1 

Sheep 

1 

Osprey 

1 

Scenic 

1     Easy 

2.  Rots 

2 

Domestic 

2 

Wind 

2    Elk 

2 

Goats 

2. 

Eogle 

2 

Hunting 

2    Medium 

3    Mistletoe 

3 

Wild 

3 

Water 

3    Moose 

3 

Cattle 

3 

Hawk 

i. 

Hiking 

3    Diff 

4    Other 

4 

Other 

4 

5- 

Other 

4  Bear 

5  Other 
ning 

4 
5 

Horses 

Other 

4 

Othe. 

4 
5 
6. 

7 

Comping 

Other 
ORV 

0 

None 

l 

Broodcos'  Bu' 

: 

P.ie   &   Burn 

3 

Lop  & 

4 

Pile 

5 

Ch.p 

6 

Chopper 

.  P-J  : 

••one 

■ 

.        t     Xing 
3     Scwping 

- 


N 

■  on 

- 

5    B»o-   -    - 

-    - 

■ 


0     Oflice  entry 
(T)   See  special  instructions 


20 


UNITED  STATES 
DEPARTMENT  OF  THE  INTERIOR 
BUREAU  OF  LAND  MANAGEMENT 

COMPARISON   AREA  DATA 

(EXTENSIVE  ANALYSIS)      SSF  -  GROUND  COVER 

Date 

Instructions  on  reverse 

1. 

State 

2.    District 

3.    Planning  Unit 

4. 

Watershed 

5.    Location 

TOWNSHIP 

RANGE 

SECTION 

MERIDIAN 

_  _  _ 

_  _  _ 

-  -  %    -  -  % 



6.    Treatment  and  common  name 


7.      Acres  (no. ) 


8.    Major  vegetative  type  (aspect) 


Soil  series  or  phase,  if  available 

(If  not,  complete  Item  10a  and  b,  below) 


10a.    Surface  Conditions  —  Consistency  —  Moist         ~\  Loose         ^  Friable         ]  Firm 

Wet         ~]  Nonsticky        ]  Sticky 

Vesicular  layer,  Q  Yes     Q  No 

and  thickness         ]l"     □  1-2"     □  2-4" 
Distance  between  rocks         ]  0.1' -2. 5'     □2.5'-5l     □5'  + 


Soil 
texture 


%"-4"     4"  + 


11.    ERD 


12.    Exposure     □  N     CjEQS     □  W     QjF 


13.    Slope  (%) 


14a.    Precipitation 

(\  nnual) 


b.    Month 

j F M- 


M- 


J- 


J- 


0- 


N- 


D- 


15.      Surface  Flow  J  Onsite         J  Run-in         J  Run  off         ]]  Run  through 


16.    PC 


lb/ac/vr 


17.    FIELD  DATA 


DATE 
(b) 

GROUND  COVER 

TRANSECT 

NUMBER 

VEGETATION 

(O 

LITTER 

(d) 

ROCK 

BARE 
GROUND 

(g) 

SSF 

(a) 

SMALL 
(e) 

LARGE 
(0 

(h) 

AVERAGE 

21 


Form  7310-18  (May  1973) 


VI.   Public  Domain  Extensive  Forest  Inventory  Master  File 

The  Public  Domain  Master  File  is  a  computer  tape  file  developed  for 
the  storage  of  the  following  data: 

1.  Field  location  (plot), 

2.  Photo  interpretations  (associated  with  field  plots), 

3.  Location  observation  worksheet, 

4.  Individual  tree  computations, 

5.  Plot  summary  computations,  and 

6.  Management  and  timber  harvest  classifications. 

The  three  individual  files — photo  point,  field  plot,  and  location 
observation — are  combined  into  a  632-character  length  record  for  each 
tree  and/or  point  recorded  on  the  field  plot  sheets.   An  average 
inventory  unit  consists  of  approximately  10,000  individual  tree 
records  and  up  to  5,000  nonstocked  point  records. 

The  following  data  file  layout  sheets  (p.  25-31)  show  the  item 
recorded,  character  size  and  type,  position  on  the  master  file,  and 
control  record  number.   Each  of  the  items  recorded,  computed,  or 
developed  from  external  programs  is  explained  in  detail  on  a  separate 
form  called  a  Control  Sheet.   The  DSC  Forester  maintains  the  documen- 
tation of  nearly  400  control  sheets.   Documentation  terminology  is 
being  recorded  in  the  BLM  Strategic  Plan,  Detailed  Requirements 
Dictionary  (DRD),  as  time  permits. 

Each  of  the  items  listed  in  abbreviated  form  on  the  layout  sheet  must 
be  identifiable  as  a  unique  name  when  extracting  individual  tree  or 
plot  data  via  the  REX  or  other  extract  program. 

A.   Master  File  Update  Program 

Program  L240  produces  a  master  file  tape,  632  characters  in  length  per 
tree  record,  which  is  a  consolidation  of  the  following  data: 
(1)  photo  identification,  (2)  field  location  ground  truth,  (3)  field 
observation  location  worksheet,  (4)  computations,  and  (5)  timber 
management  and  harvest  classification.   Table  I  (page  32)  lists  tape 
numbers  held  in  permanent  storage  at  the  DSC  computer  center. 

The  revision  of  volume  equations,  initial  entries  in  harvest  codes, 
bark  growth  factors,  field  plot  expansion  factors,  etc.,  is  presently 
reserved  for  the  Denver  Service  Center.   This  is  a  safety  precaution 
which  protects  the  original  file  from  inadvertent  changes  that  may 
remain  undetected  and  cause  erroneous  summaries  to  be  produced  from 
the  data  on  file. 
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1.   L240XX:   P.D.  Forest  Inventory  System. 

Modifies  the  L240  MTI  tapes  by  adding  bark  growth  factors,  field  plot 
expansion  factors,  and  volume  equations  for  each  species.   Five 
separate  volume  calculations  are  made  for  each  measurable  tree,  using 
International,  Scribner  and  cubic  volume  log  rules.   Actual  tree 
growth  for  the  past  five  years  is  also  computed  and  recorded  on  the 
master  tape. 

Existing  gross  and  net  board  foot  and  cubic  foot  timber  volume  and 
growth  records  of  forest  stands  are  perhaps  the  most  important 
attributes  available  for  developing  timber  management  plans. 

Preliminary  forest  management  plans  are  developed  for  each  of  the 
field  plot  locations  (up  to  999  field  plots  are  established  in  each  of 
the  17  forest  inventory  units).   Timber  harvest  planning  data, 
multiple-use  management  codes  and  multiple-use  restriction  percentages 
applied  to  timber  harvesting  are  also  recorded  on  each  of  the  L240XX 
versional  tapes. 

Several  tapes  of  each  of  the  17  inventory  units  may  be  compiled.   Each 
of  these  versional  tapes  will  have  different  management  planning 
concepts  and  proposed  timber  harvest  system  codes  on  file. 

The  final  management  plan  of  each  forest  inventory  unit  will  be 
prepared  upon  completion  of  the  EAR  and  EIS  processes.   At  that  time, 
the  "approved"  management  plan  will  be  adopted  and  revised  data  added 
to  the  master  tape  through  the  L240  program  system. 

Optional  reports  may  be  printed  by  program  L240XX.   These  reports,  not 

permanent  records,  are  principally  used  for  displaying,  editing 

proofs,  or  testing  of  the  formulas  and  equations  to  see  if  they  are 
working  correctly. 

The  master  tapes  produced  through  L240XX  are  used  as  the  information 
sources  for  executing  the  Five  Table  Field  Plot  Display  Records  and 
other  tables  used  in  running  the  forest  simulation  modeling  program. 
They  are  also  used  as  the  information  sources  for  creating  input  tapes 
into  the  U.S.  Forest  Service  FINSYS,  PROGNOSIS,  and  other  analysis  and 
development  systems. 

Documentation  of  some  portions  of  the  PD  Forest  Inventory  System  is 
sparce.   Individual  data  elements  are  defined  or  explained  on  Denver 
Service  Center  (DSC)  Form  1265-23,  March  1972,  "Data  Standard 
Representation  and  Code  Set."   Data  element  control  numbers  may  be 
found  on  the  Data  File  Layout  Sheets.   This  data  element  file  consists 
of  loose  leaf  notebooks  containing  over  500  sheets. 
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FiLes  containing  the  coded  information  recorded  by  rpretei 

are  maintained  for  each  unit.   Field  Plot  Establishment  Han^ 
contain  the  information  needed  to  decipher  the  master  file  codes  f  - 
data  recorded  in  the  field. 

Refer  to  File  Code  5216  for  the  DSC  staff  publication,  "Stratified 
Double  Sampling  with  Estimated  Stratum  Weights,"  for  informati  l 
concerning  plot  selection  stratification  statistical  analysis,  and 
acreage  computations  used  as  plot  expansion  factors. 
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127 

132 

6 

109 

04 

ADJ-FCTR 

79 

9V9(4) 

133 

137 

5 

196 

02 

FILLER 

80 

XXX 

138 

140 

3 

02 

FIELD-TRTMT 

81 

141 

2 

04 

TYPE-TRTMT 

82 

9 

141 

141 

04 

YRS-AGO-TRTMT 

83 

9 

L42 

1 

02 

FIELD-EDIT-BYPASS 

84 

X 

143 

1 

♦ 

26 

i 

! 

i 

DEPARTMENT 

OF   THE   INTERIOR 

Bureau  of  Land  Management 

DMar"ch2?9726                                               DATA   FILE   LAYOUT  SHEET 

GPO    84C  -  675 

FROGRAM  NAME:       P-D.    INVENTORY    SYSTEM 

ID: 

PAGE  3     OF     7 

1 

FILE    NAME:       p>D>    j^ter 

FROM: 

TO: 

DESCRIPTION    FD  MD  SDl        FD 

iZ]  INPUT   ~2L 

'OUTPUT 

FILE   CONTAINS: 

ACCESS  MODE:       SEQUENTIAL 

BLOCK:       10    RECORDS 

RECORD:  632    CH 

ARACTER 
99 

LABEL.                STANDARD 

VALUE  OF  ID:             AMFL240 

SAVE   FACTOR:    9 

DATA  RECORD  .01)     MSTR-TREE-NEW 

ACTUAL   KEY: 

FILE  SEQUENCE-          TREE-CNTL    (ASCENDING) 

INQ. 
CNTL 

POSITION 

CONTROL 

LEV 

DATA    ELEMENT    MNEMONIC 

PICTURE 

BEG 

END 

SIZE 

NUMBER 

02 

AREA-FIELD   DATA 

85 

144 

173 

30 

04 

SMPL-KIND 

86 

9 

144 

144 

1 

205 

04 

DATE 

87 

145 

150 

6 

06 

YR 

88 

99 

145 

146 

2 

206 

06 

MO 

89 

99 

147 

148 

2 

206 

06 

DA 

90 

99 

149 

150 

2 

206 

04 

GLU 

91 

99 

151 

152 

2 

208 

04 

PLOT-FORS-TYPE 

92 

99 

153 

154 

2 

256 

04 

CALC-FORS-TYPE    (R) 

93 

99 

153 

154 

2 

359 

04 

FIELD-STND-SIZE 

94 

99 

155 

156 

2 

04 

FIELD-STND-AGE 

95 

999 

157 

159 

3 

254 

04 

BAF 

96 

99 

160 

161 

2 

275 

04 

BAS 

97 

999 

162 

164 

3 

276 

04 

FIELD-ASP 

98 

X 

165 

165 

1 

253 

04 

FIELD-SLP 

99 

X 

166 

166 

1 

246 

04 

FIELD-PHY 

100 

X 

167 

167 

1 

247 

04 

SEED-SOURCE 

101 

9 

168 

168 

1 

255 

04 

AGE-TO-DBH 

102 

99 

169 

170 

2 

245 

04 

TREE-COUNT 

103 

999 

171 

173 

3 

297 

02 

TREE-FIELD-DATA 

104 

174 

243 

70 

04 

AZI 

105 

999 

174 

176 

3 

213 

04 

DIS 

106 

99V9 

177 

179 

3 

214 

04 

HIST 

107 

99 

180 

181 

2 

217 

04 

SPEC 

108 

999 

182 

184 

3 

218 

04 

DBH 

109 

999V9 

185 

188 

4 

219 

04 

BARK-THCK 

110 

99V9 

189 

191 

3 

354 

04 

10YR-RADL 

111 

S99V9 

192 

194 

3 

220 

04 

AGE-AT-DBH 

112 

999 

195 

197 

3 

237 

04 

HGT 

113 

999 

198 

200 

3 

221 

04 

LOGS 

114 

99V9 

201 

203 

3 

223 

04 

MERCH-HGT 

115 

999 

204 

206 

3 

04 

GRADE 

116 

X 

207 

207 

1 

226 

04 

SURF 

117 

99 

208 

209 

2 

227 

04 

CRWN-RAT 

118 

99 

210 

211 

2 

231 

04 

CRWN-CLSS 

119 

9 

212 

212 

1 

232 

04 

DAMG 

120 

99 

213 

214 

2 

233 

04 

SEVERTY 

121 

99 

215 

216 

2 

04 

LOG-DEDS   OCCURS    4    TIMES 

122 

217 

236 

20 

06 

LOG-POSTN 

123 

99 

217 

218 

2 

240 

06 

TYP-DEDUCT 

124 

9 

219 

219 

1 

241 

06 

PCT-DEDUCT 

125 

99 

220  j 

221 

2 

242 

04      | 

CLSS 

126 

99 

237  J 

238 

2 

234 

04 

SEED-SAPL-CNT 

127 

99 

239  | 

240 

2 

04 

SITE-NDX 

128 

999 

241  | 

243 

3 

252 

27 

1 

i 

1 

j 

DSC-1265-26 
Motch  1972 


DEPARTMENT   OF    THE    INTERIOR 
Bureau  of  Land  Management 

DATA    FILE    LAYOUT   SHEET 


PROGRAM  NAME:                  P-D.    INVENTORY    SYSTEM 

ID. 

1 

FILE   NAME:     p#D_    MASTER 

FROM; 

TO: 

DESCRIPTION    FD  MD  SD]    FD 

X     INPUT     X     OUTPUT 

FILE  CC 

ACCESS  MODE:  SEQUENTIAL 

BLOCK:  10-RECORDS 

RECORD     632   CHARACTERS 

LABEL.       STANDARD 

VALUE  OF  ID:       m¥L^° 

SAVE   FACTOR: 

DATA  RECORD  -01)      MSTR-TREE-NEW 

ACTUAL   KEY: 

FILE  SEQUENCE:           TREE-CNTL    (ASCENDING) 

LEV 

DATA    ELEMENT    MNEMONIC 

INQ. 
CNTL 

BEG 

02 

PLOT-AVCS. 

129 

244 

253 

10 

04 

AVG-SPEC 

130 

999 

244 

246 

3 

348 

04 

AVG-SI 

131 

999 

247 

249 

3 

352 

04 

AVG-YC 

132 

999V9 

250 

253 

347 

02 

OBSVI 

133 

254 

304 

51 

04 

HAB-TYP 

134 

XXX 

254 

256 

3 

401 

04 

STRUCT 

135 

X 

257 

257 

1 

402 

04 

CANOPY 

136 

X 

258 

258 

1 

403 

04 

YRS-LOGD 

137 

XX 

259 

260 

2 

404 

04 

OVR-STK. 

138 

261 

274 

14 

06 

SPC1 

139 

XXX 

263 

3 

405 

06 

SPC2 

140 

XXX 

264 

266 

3 

06 

AGE 

141 

XXX 

267 

269 

3 

06 

CNPY-CVR 

142 

XX 

270 

271 

*y 

06 

GRW-RATE 

143 

X 

272 

272 

l 

409 

06 

STMP-YRS 

144 

XX 

273 

274 

410 

04 

UNDR-STK 

145 

275 

288 

06 

SPC1 

146 

XXX 

275 

3 

06 

SPC2 

147 

XXX 

278 

280 

06 

AGE 

148 

XXX 

281 

283 

3 

413 

06 

CNPY-CVR 

149 

XX 

284 

285 

•    - 

06 

GRW-RATE 

150 

X 

286 

286 

06 

STMP-YRS 

151 

XX 

287 

288 

416 

04 

GRND-CVR 

152 

289 

300 

06 

PCT-BARE 

153 

99 

289 

290 

06 

PCT-SOD 

154 

99 

291 

292 

418 

06 

PCT-DBRS 

155 

99 

293 

294 

419 

06 

PCT-DUFF 

156 

99 

295 

06 

PCT-LOW 

157 

99 

J97 

i 

06 

PCT-HIGH 

158 

99 

299 

300 

04 

DNUD-YRS 

159 

999 

301 

303 

04 

NONSTK-CAUS 

160 

9 

304 

1 

02 

0BSV2 

161 

305 

377 

03 

LOC-RATINGS 

162 

305 

370 

66 

03 

RATINGS   OCCURS    3   TIMES 

163 

305 

_22 

04 

RISK 

164 

9 

305 

305 

1 

06 

MORT 

165 

9 

306 

306 

1 

06 

INSCT 

166 

9 

307 

307 

1 

06 

DISEAS 

167 

9 

308 

308 

1 

06 

ANIML 

168 

9 

309 

309 

1 

06 

FIRE 

169 

9 

310 

310 

1 

■ 

06 

WEATHR 

170                 9 

311 

311 

1 

06 

OTHR 

171                 9 

1 

06 

WILD  ANIMAL 

172 

9 

313 

313 

1 

28 

DEPARTMENT   OF   THE    INTERIOR 
Bureeu  of  Lond  Management 


°SzX%?                                   data  file  layout 

SHEET 

GPO 

8-jG  -  6  75 

PROGRAM  NAME:        P.D.    INVENTORY    SYSTEM                                                   ID:                                    PAGE  5     OF        7 

FILE  NAME:     p.D.    MASTER                                                                       |FROM: 

TO: 

DESCRIPTION  !FD  MD  SDi             FD 

?H INPUT   3  OUTPUT 

FILE  CONTAINS: 

ACCESS  MODE:     SEQUENTIAL 

BLOCK:          10-RECORDS 

RECORD:     632   CHARA. 

LABEL:       STANDARD 

VALUE  OF  ID:       AMFL240 

SAVE  FACTOR:    999 

DATA  RECORD   (01)          MSTR-TREE-NEW 

ACTUAL   KEY: 

FILE  SEQUENCE:        TREE-CNTL    (ASCENDING) 

INQ. 

POSITION 

CONTROL 

LEV 

DATA   ELEMENT    MNEMONIC 

CNTL 

PICTURE 

BEG 

END 

SIZE 

NUMBER 

06 

DGMES-ANML 

173 

9 

314 

314 

1 

434 

06 

RAPTORS 

174 

9 

315 

315 

1 

435 

06 

MINING 

175 

9 

316 

316 

1 

436 

06 

RECREATN 

176 

9 

317 

317 

1 

437 

06 

OTHR-USE 

177 

9 

318 

318 

1 

438 

06 

MOVMT 

178 

9 

319 

319 

1 

439 

06 

SEEPAGE 

179 

9 

320 

320 

1 

440 

06 

SLUMPS 

180 

9 

321 

321 

1 

441 

06 

SHEET 

181 

9 

322 

322 

1 

442 

06 

RILLS 

182 

9 

323 

323 

1 

443 

06 

GULYS 

183 

9 

324 

324 

1 

444 

06 

ROCKS 

184 

9 

325 

325 

1 

445 

06 

STEEP 

185 

9 

326 

326 

1 

446 

03 

AFFCTD-ACRS 

186 

999 

371 

373 

3 

447 

03 

EROS-COEFF 

187 

99 

374 

375 

2 

448 

03 

VIS-IMP-ZONE 

188 

9 

376 

376 

1 

449 

03 

FILLER 

189 

X 

377 

377 

1 

02 

OBSV3 

190 

378 

409 

32 

04 

WNDFLS 

191 

378 

381 

4 

06 

NO-WNDFLS 

192 

99 

378 

379 

2 

450 

06 

DBH-WNDFLS 

193 

99 

380 

381 

2 

451 

04 

SNAGS 

194 

382 

385 

4 

06 

NO-SNAGS 

195 

99 

382 

383 

2 

452 

06 

DBH-SNAGS 

196 

99 

384 

385 

2 

453 

04 

NEAREST-RD 

197 

99V9 

386 

388 

3 

454 

04 

RD-CHNCE 

198 

9 

389 

389 

1 

455 

04 

RD-OPER 

199 

9 

390 

390 

1 

456 

04 

IN0PER1 

200 

9 

391 

391 

1 

457 

04 

IN0PER2 

201 

9 

392 

392 

1 

458 

04 

NEXT-CUT-YRS 

202 

999 

393 

395 

3 

459 

04 

HRVST-METH 

203 

9 

396 

396 

1 

460 

04 

SLASH-DISPOS 

204 

9 

397 

397 

1 

461 

04 

PLANT-PREPAR 

205 

99 

398 

399 

2 

462 

04 

INTENS-MGT 

206 

99 

400 

401 

2 

463 

04 

HDGED-WLDLIF1 

207 

9 

402 

402 

1 

464 

04 

HDGED-WLDLIF2 

208 

9 

403 

403 

1 

465 

04 

HDGED-WLDLIF3 

209 

9 

404 

404 

1 

466 

04 

HDGED-WLDLIF4 

210 

9 

405 

405 

1 

467 

04 

NOT-HDGED-WLDL I F 1 

211 

9 

406 

406 

1 

468 

04 

NOT-HDGED-WLDLIF2 

212 

9 

407 

407 

1 

469 

04 

N0T-HDGED-WLDLIF3 

213 

9 

408 

408 

1 

470 

04 

NOT-HDGED-WLDL I F4 

214 

9 

409 

409 

1 

471 

29 
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DEPARTMENT   OF    THE    INTERIOR 
Bureau  of  Land  Management 

DATA   FILE   LAYOUT  SHEET 


PROGRAM  NAME:      P.D.    INVENTORY 

ID: 

PAGE 

:       7 

FILE   NAME:        P.D.    MASTER 

FROM: 

TO: 

DESCRIPTION    FD  MD  SD>           FD 

. 

OUTPUT 

FILE  CONTAINS: 

ACCESS  MODE:     SE0TJENTIAL 

BLOCK:     10-RECORDS 

RECORD:632   CHARACTERS 

LABEL:       STANDARD 

VALUE  OF  ID:         AMFL240 

SAVE  FACTOR: 

999 

DATA  RECORD   (01)           MSTR-TREE-NEW 

ACTUAL   KEY: 

FILE  SEQUENCE:      TREE-CNTL    (ASCENDING) 

INQ. 

LEV 

DATA    ELEMENT    MNEMONIC 

CNTL 

PICTUPE 

8EG 

; 

02 

FIELD-ASP-CONVT 

215 

9V9 

410 

411 

2 

02 

FIELD-PHY-CONVT 

216 

99 

412 

413 

2 

02 

FILLER 

217 

XXX  X 

414 

417 

4 

02 

CALC-DATA 

218 

418 

549 

142 

04 

SITE-YC 

219 

999V9 

418 

421 

4 

351 

04 

TTL-AGE 

220 

S999 

422 

424 

3 

306 

04 

AGE-KEY 

221 

X 

425 

425 

1 

04 

AGE-GRP 

222 

999 

426 

428 

3 

355 

04 

FORM-CLS 

223 

9V999 

429 

432 

4 

353 

04 

DBH-CLSS 

224 

9 

433 

1 

319 

04 

SND-BD 

225 

999 

434 

436 

3 

340 

04 

ROTTEN-BD 

226 

999 

437 

439 

3 

341 

04 

ROTTEN-CU 

227 

999 

440 

442 

3 

343 

04 

TREE-STK 

228 

99V9 

443 

445 

3 

320 

04 

CADI 

229 

9V9999 

446 

450 

5 

356 

04 

MID-DIA 

230 

999V999 

451 

^56 

6 

357 

04 

TREE-BA-ACR 

231 

999V999 

457 

462 

6 

335 

04 

TREE-PER-ACR 

232 

999V999 

463 

468 

6 

336 

04 

PAST-DBH 

233 

999V99 

469 

■ 

5 

375 

04 

BARK-FACTOR 

2  34 

9V9999 

474 

478 

5 

358 

04 

CALC-STND-AGE 

235 

999 

479 

481 

3 

332 

04 

ASSG-STND-AGE 

236 

XXX 

482 

484 

3 

331 

04 

STND-SIZE-CLS 

237 

9 

485 

1 

330 

04 

MEAN-STND-DIA 

238 

999V99 

486 

490 

5 

338 

04 

BA-AC 

239 

999V99 

491 

495 

5 

335 

04 

AREA-COND 

240 

99 

496 

333 

04 

MATURA-AGE 

241 

999 

498 

500 

3 

318 

04 

OVRSTK-CNT 

242 

99 

501 

502 

328 

04 

UNDSTK-CNT 

243 

99 

503 

504 

329 

04 

STK-SW 

244 

9 

505 

505 

1 

363 

04 

DESIR-PCT 

245 

999V9 

506 

509 

- 

04 

ACCEP-PCT 

246 

999V9 

510 

513 

■ 

04 

CULL-PCT 

247 

999V9 

514 

517 

- 

04 

NON-STK-PCTS 

248 

518 

15 

06 

N0NSTK51 

249 

999 

518 

520 

3 

06 

NONSTK60 

250 

999 

521 

3 

06 

NONSTK70 

251 

999 

524 

3 

06 

NONSTK80 

999 

527 

3 

06 

NONSTK54-5 

253 

999 

530 

3 

JO 
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DEPARTMENT   OF   THE   INTERIOR 
Bureau  of  Land  Management 

DATA   FILE   LAYOUT  SHEET 


GPO    840-675 


PROGRAM   NAME:        P.D.    INVENTORY 

SYSTEM 

ID: 

PAGE     7  OF     7 

FILE   NAME:       P.D.    MASTER 

FROM: 

TO: 

DESCRIPTION    FD  MD   SD!      FD 

^  INPUT    2]  OUTPUT 

FILE  CONTAINS: 

ACCESS  MODE:            SEQUENTIAL 

BLOCK:              10-RECORDS 

RECORD:  632    CHARACTERS 

LABEL:                 STANDARD 

VALUE  OF  ID:         AMFL240 

SAVE  FACTOR:      999 

DATA  RECORD   (01)     MSTR-TREE-NEW 

ACTUAL   KEY: 

FILE  SEQUENCE:  TREE-CNTL    (ASCENDING) 


LEV 


DATA    ELEMENT    MNEMONIC 


INQ. 
CNTL 


PICTURE 


POSITION 


BEG. 


END 


SIZE 


CONTROL 
NUMBER 


04 
04 

04 
04 
02 
04 
04 
04 
04 
04 
02 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 

02 
02 


TREE-SEQ 

EXP-FCTR 

TREES-ACR-5 

TREES-ACR 
HARVST-INFO 

URA-HRVST 

MFP1-HRVST 

MFP1-PCT 

MFP2-HARVST 

MFP2-PCT 
GROS-TRE-VOLS . 

SCRIB-FIX 

SCRIB-VAR 

INTL-FIX 

INTL-VAR 

CUBIC 

SCRIB-FIX-GRW 

SCRIB-VAR-GRW 

INTL-FIX-GRW 

INTL-VAR-GRW 

CUBIC-GRW 

NON-STK-PTS    (Cont.) 
N0NSTK52 
NONSTK53 


31 


254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
*248 
275 
276 


999 
9(5)V999 
9(5)V999 
9(5)V999 

9 

9 

9 

99 

9 

99 

S9(5)V9 

S9(5)V9 

S9(5)V9 

S9(5)V9 

S9(5)V9 

S9(4)V99 

S9(4)V99 

S9(4)V99 

S9(4)V99 

S9(4)V99 

999 
999 


533 
536 
544 
552 
560 
560 
561 
562 
564 
565 
567 
567 
573 
579 
585 
591 
597 
603 
609 
615 
621 

627 
630 


535 
543 
551 
559 
566 
560 
561 
563 
564 
566 
626 
572 
578 
584 
590 
596 
602 
608 
614 
620 
626 

629 

632 


7 
1 
1 
2 
1 
2 
60 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 

3 

3 


298 

365 
344 
345 

383 
384 
385 
386 
387 

367 
373 
366 
372 
368 
370 
374 
369 
376 
371 
327 
327 
327 


Table  I.  -  TAPE  LIST 
L240  P.D.  FOREST  INVENTORY  SYSTEM 


|NO.   UNIT  NAME       |  DATE  |  TAPE  |  DATE  |  TAPE  I  DATE  |  TAPE  I 

1 01  -  Missoula       |       | 11148  |       |       | 

1 02  -  Dillon         |       |  8718  |       |       | 

| 03  -  Montrose       |       | 11230  |             | 

1 04  -  W.  Wyoming     |       | 10920  | 

1 05  -  E.  Wyoming     |       | 10634  |       |       | 

| 06  -  Glenwood  Spgs.  I       |  4951  |       |       | 

1 07  -  Boise          |       |  5026  | 

1                    1       1       I       1       1       1       1 

1 08  -  King's  Range    |       1 11021  |       | 

| 09  -  Coeur  d'Alene   |       | 12134  |       | 

1 10  -  Canon  City      |       |  12186  | 

111  -  C.  Idaho       |      |  8185  |      | 

|12  -  Albuquerque           |  5301 

1 1 3  -  Ukiah          |       |  6182  | 

1 14  -  La  Pine        I       |  8046  | 

| 1 5  -  Redding        |       | 11663  I       I 

1 17  -  E.  Oregon      |       |  6702  |       | 

I  18  -  E.  Montana     I       I  10737  |       |       | 

Note:   Units  15  and  16,  Redding,  Susanville,  Folsom,  and  Bakersfield 
Districts  have  been  combined  into  one  SYU,  and  Unit  No.  16  was 
eliminated. 

Files  must  be  at  least  5,000  LL  in  size  to  hold  the  data 
contained  on  these  tapes. 

Contact  the  DSC  Forester,  D-450,  Division  of  Special  Studies, 
for  the  tape  number  containing  the  latest  updates. 
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B.   L240  MODIFICATION  RUN  PROCEDURE 

L240  (SYU)  INVENTORY  MASTER  TREE  FILE  UPDATE 

This  program  computes  volume,  growth,  and  numerous  other  tree  and 
stand  attributes  and  posts  them  in  their  proper  fields.   In  addition, 
harvest  data  may  be  added  to  the  file  by  merging  key-taped  harvest  and 
multiple-use  restriction  alternatives  with  the  master  file  tapes. 

Preparation 

A.  If  harvest  data  is  used  in  Run,  a  key-tape  should  be 
created. 

B.  Information  required  for  Run. 

1.  Harvest  key-tape  number  (if  required  for  Run). 

2.  Program  number  for  a  given  unit. 

3.  Master  tape  number  for  that  unit. 

4.  Standard  name  given  that  unit. 


Run  Procedure 

A.  Dial  up  computer  and  log-on  terminal. 

B.  Upon  other  UMC  permission  must  be  granted  before  accessing 
A134/CRUN/L240  and  A134/CRUN/L240TEX 

C.  Start  job  by  entering  command  "CRUN  A134/CRUN/L240" 
Following  message  will  appear: 

******  CRUN  L240  SET  PARAMETERS  FOR  RUNNING  L240  JCL  ******** 

***  SPECIAL  NOTE  **** 
***   IF  PROBLEMS  OCCUR  WHILE  ENTERING  PARAMETERS  FOR  JCL  *** 
***   PRESS  THE  BREAK  KEY  TO  DROP  OUT  OF  CRUN  THEN  START  OVER  ** 

If  problems  occur,  contact  User  Support  Section. 

D.  Enter  your  name  for  banner.   This  name  should  be  your  name  or 
the  name  of  the  person  job  will  be  produced  for. 

YOUR  NAME  FOR  BANNER. 
==FARRAR 
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E.   If  harvest  key-tape  is  required,  type  '$*,  else  type  '*'. 
Upon  this  request  if  key-tape  used  in  RUN,  enter  a  dollar 
sign  '$'  then  the  next  question  will  be  item  F.   If  no 
key-tape  used,  enter  '*'  then  the  next  question  will  be 
item  #G.   Example  below  show  a  bad  response,  then     —ect 
response. 

IF  HARVEST  KEY-TAPE  REQUIRED,  TYPE  *$',  ELSE  TYPE  '*' 
==9 
ERROR  »*'  or  '$'  WAS  NOT  ENTERED  PLEASE  RE  ENTER 


IF  HARVEST  KEY-TAPE  REQUIRED  TYPE  '$',  ELSE  TYPE  '*' 
==$ 

Enter  harvest  key-tape  number.   Example  "K473."   The  key-tape 
produced  at  the  Denver  Service  Center  will  start  with  "K." 
Enter  tape  number  assigned. 

ENTER  HARVEST  KEY-TAPE  NUMBER.   EXAMPLE  "K473" 
==K47  7 

Enter  program  unit  number  'L240n'  n=l-18.   Each  inventory 
unit  has  a  program  under  L240.   Enter  the  coressponding  unit 
number  on  L240.   Note:   L24016  is  not  valid. 

ENTER  PROGRAM  UNIT  NUMBER  'L240n'  n=l-18 
==L24018 

Enter  master  tape  number.   This  master  tape  was  created  by 
L240;  unit  1  tape  was  created  by  L2401.   The  tape  that 
corresponds  to  the  unit  being  run  should  be  entered. 

ENTER  MASTER  TAPE  NUMBER 
==345 

Enter  up  to  12  characters  for  unit  name.   Enter  the 
appropriate  unit  name. 

ENTER  UP  TO  12  CHARACTERS  FOR  UNIT  NAME 
==WOODY  ACRE 
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J.   Upon  completion  of  item  I  this  message  will  appear: 

*******    THAT  WAS  THE  LAST  ENTRY  FOR  RUN  OF  L240   ******* 

***   IF  YOU  ENTERED  THE  PROPER  PARAMETERS  KEY  IN  'RUN'  ** 

***         WHEN  PROMPT  '**  APPEARS  ON  SCREEN  ** 

***        ELSE  RERUN  CRUN  IF  REQUIRED  AS  BEFORE.  ** 

***  ** 

***        RECORD  SNUMB  NUMBER  AFTER  RUN  COMMAND  ** 


K.  Record  the  job  snumb  so  you  can  keep  track  of  your  output. 
Output  will  be  placed  in  the  box  output  was  directed  to  by 
use  of  banner. 

SPECIAL  NOTE:   L240  produces  a  tape  that  will  be  held 
indefinitely  or  upon  another  successful  L240  RUN.   Record 
input  and  output  tape  number,  unit  name  used  on  tape,  and 
key-tape  number  for  permanent  record. 
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VII.   Report  Printing  Phase  -  Five  Basic  Forest  Inventory  Tables. 

Tables  I  through  V  display  extensive  forest  inventory  field  plot  data 
for  each  field  plot  location.   Each  table  is  designed  to  show  diverse 
data  or  to  display  summary  information  in  a  somewhat  different 
fashion.   These  five  basic  tables  are  briefly  described  below  and  are 
followed  by  CRUN  directions  for  printing  copies  of  the  tables. 

A.   Table  I;   Individual  Tree  Data:   L241RF 

Table  I  shows  individual  tree  data  or  nonstocked  point  location  data 
on  a  single  line.   Nonstocked  plots  will  contain  only  10  lines  of  data 
(one  for  each  point),  while  heavily  stocked  plots  may  contain  up  to 
150  lines  of  data  (one  for  each  tree  recorded). 

Individual  trees  are  identified  by  plot  and  point  number,  point 
occupancy,  tree  number  species,  history,  class,  diameter,  and  total 
height.   Other  tree  characteristics  include  both  measured  and  computed 
tree  statistics.   Growth  sample  stems  are  identified  by  an  "A" 
(actual),  while  nongrowth  sample  trees  are  identified  by  a  "P" 
(projected).   Total  tree  age,  radial  growth,  bark  thickness,  and  bark 
and  wood  growth  factors  of  nongrowth  sample  trees  are  developed 
through  regression  analysis  studies. 
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Table  I.   Job  Control  Language  and  CRUN  for  L241RF, 


Job  Control  Language  and  CRUN  Listing 

*OLD  A185/JCL/L241JCL,R 
*LIST 

##N,J 


IDENT:A185,M0RED0CK 

OPTION: CBL74 

SELECT :A1 34 /0BJ/L2410BJ 

EXECUTE : DUMP 

LIMITS:50,32K, ,45K 

TAPE9:T1,T1D,  ,"240TAPE",  ,AMFL240,  ,DEN16 

SYS0UT:L1,0RG 

ENDJOB 


*LIST  CRUNL241 

##:(240TAPENO?) 

OLD  A185/JCL/L241JCL.R 
SYST 
EDIT 

RS:/"240TAPEM/:/#l/ 
B 

RS:/,J/ 

$*$USER=DISPOSITION  (PUNCH  CARRIAGE  RETURN  FOR  ONLINE,  OR  ELSE 

ENTER  ",J")? 

$*$NULL 

DONE 

REMC 

LIST 

COUT  *NULL 

RUN 

COUT 

Summary 

The  CRUN  for  L241RF,  Table  I,  does  the  following: 

1.  Reads  in  the  L240  Master  File  Tape  selected  for  the  Inventory 
Unit. 

2.  Produces  Table  I,  Individual  Tree  Data,  from  the  above  tape 
input  (1_/). 

1_/  Only  those  field  plot  locations  that  are  classified  as  Productive 
Forest  Land  under  the  Ground  Land  Use  criteria  are  programmed  for 
printing. 
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Form 

A134/CRUNL241 
Responses  to  CRUN  Queries 

1.  L240TAPE  NO? 

Respond  with  the  L240  Master  File  Tape  Number,  such  as 
"12134"  (Coeur  d'Alene,  Idaho:   Unit  09). 

2.  DISPOSITION? 

Respond  with  "Carriage  Return"  for  online  printer  or  respond 
with  ",J"  to  monitor  the  job  execution. 

*JM0N  "SNUMB" 
Normal  Termination 

When  ',J'  is  used  to  monitor  the  job  execution,  you  must 
follow  through  with  the  JOUT  function  to  get  the  report  printed; 
otherwise,  jobs  not  directed  to  a  printer  are  released  within  24 
hours.   Use  the  JOUT  command  as  shown. 

*J0UT  "SNUMB" 

Function?   DIRECT  ONLINE 

or 

EPRINT  06 

-  for  printing  at  the  remote  terminal. 

NOTE:   You  must  set  the  line  length  to  140  characters  per  line  before 
executing  these  programs,  or  the  ..INIT  subroutine  file  system  can  be 
used.   Otherwise  the  remote  terminal  will  only  print  a  maximum  of  80 
characters  on  each  line  and  overlapping  will  occur. 


38 


3:        c 

-.  o  </> 
►-»-<.> 

u|ZZ>< 
UJ  UJ  k- 
X.  >  o 
Ui    Z   ►< 

Q  < 

z  •"  H" 

«    V)    11 

goo 

Z   u.   4 
a   < 
«:  _i  z 
a         ~ 
ui  tt.  < 
P  o  x  2> 
o  o 

3  O  .. 

■a  :• 

id  u  - 

«<    cr  — .  <fc> 

»-      3  _l 

t^    (D  ID  •+" 

a. 

ui 


3 


<•,  «-  I 
r>  »»  o-  uj 
»■•  rvj  o  >- 
»..   _)         .[ 

Ol    u.    t-    ^ 
T+     QC     —• 

<   z   :- 

I     3   u 

•"f    *~  :> 

«        t  >-    It 

O  -o  oc  :s 

«-  O   <p 
•4    ru  t- 
o    u->  z  A 

O  UJ  Jj 

a.   z  >  at 
ui   u   z  41 

a  q-  —  * 


f\j  tn  rii  rf\ f\i  k>  m  H  iy  fy   i\im 

IM    O  fy    O^M  O    M   d  M  M     *Si    O 

i-  iMMNrui  ji/^>ONooocj>«- 

itiia  iA  inr-  !trtt»u")u"»u-t'0,o 

f\i  fy  no  ryo  ry  iy  isj  fy  im   ry  ly 

«—  (y  >|  fOin  ■  ry  f^-  >0  >T  *t   «■+  ui 

i     J 

o  o  >o  -o  o  .  ^  r*.  r*j  n.  r*.  Nt.  r^- 


o  </■ 

T-    h-     <_ 


z  t-  I- 

<  */>  l/" 

£   uj 

or  a 

Q    O  u. 

Z  u-  a 


u.  <  < 

O  £  = 

o  a 

vi  z>  a  - 

UJ   <r  3 

hi    UlU  » 

<J  <r  •-• 

h  3  j  2 

«/1   OD  <D  ►" 


51 

UJ    ^ 
O   00 

od       u     , 

N   ^O1    UJ 
th  po  O  »— 

pj  u.  t-  Q 
«-  or  -      I 


<•> 


2    M 

3 
C 
a     _J 

1.1  <_> 

Ul  > 

u    </> 

«' 

I    o 
«    o 


ui  <_> 


Ol   UJ 
«      UJ 

a   oc 


o 

V3 


s:  ui 

-    o 

a.  or 
c  >• 
T  » 


I  « 
o:  3 
i.    z 

a:  z 
►  i  < 


a:  a 


j.:  t- 
(-  o 
</    a 


li  a. 
uj  or 
«:  O 


C    O 

Z   O 


at  <-> 


4  _. 


uj    i  n  uj 

>-  «-  a 

<       •  J-  ce 

Q   -O  CE  3 

.-  O  </■} 

0C    W\  Z  Q 

O  UJ  _l 

0.    Z  >  UJ 

uj    l_i  Z  -H 


I 

a 
-t  o- 


or.  o 

H-    Z 


I—    O 

Z  o 

O  o 
a  z 


00  (V 

p.  r>- 


OO 
OO 


oo  po 
*jr  u\ 


OO 
O  O 
OO 

•    f 


o  o 


p-  O 
«-  p- 

00  .- 

•    t 

00  ~o 


.-p-   K 

IA  OO 


a  a.  a. 

•j-  %»•  J 


>J    >»  »»  P. 

p,    po  po  k 
p.    »-  t- 


Ci  O  O  C 
Ci  O  O  Cl 


■g    ^  •»  •OJ 


4)    »-     O     u" 


in  v>  v*  go 

f\J    1*1  •*   »\J 


o  o 
o  o 


o  o 
o  o 


-O    r*l  J 
*->  in  KJ 


sj>   >r  ^  >» 


1*1  00  PO  gj 
m  *»  po  po 
o  o  gj-  oo 


rTi  N"t   K»  r* 

KiKimo 
O    0*    O*  OO 

Cl  O  O  CI 


«-     O   O  K 


i/>  irtiAi/\ 
m  a  o  »n 


o  a  o  o 


I       t       I 
O0    LP.    o    < 


-g     -J    .»    Kl 

i/   iai/\  <i 
Ci  o  o  «- 


i/i  in  in  u- 


o(i  00    00  i 

I     fl     • 
f\    r\j  (\j 


r-BO« 

.-t  o  ow 


IM   O 

00    -J 


l/\    r-   «   in 
»-    «-  O  Po 


W"»    «-j  <0    >» 
«-    «-  <NJ 


O 

o 


stlA    t-     t—   •—    r-.   *— 


O  m 


u->  gr  «-|  »-  i-  «-|  r- 
m  oo 


00    00  00    00    T~1  r-    •- 
•         «••«•! 

ro  ru  *\J  ro  »-  r-  r- 


O    O  O  O  u>  >A  ul 

N     «   N    N 

o.    u   «  «  a  a  a 

«-  k*  gr  >» 


^    ^O- 
f-     ^5  f^    fw 


s>    -,/>  rO 


oocj 

m  ir»  ng 


<t   -O  >»  rO 
-p  oo  oo  r-( 

oH  O  O  u*. 


J« 


IA    »-    r-    ^ 


O   "1  O  m 


£5"' 


J„J_ 


~T  P- 
.      ■        f       .       t 


i  o  o  o  o  o  a  o 

PJ  P0    «-|    «— 


00  0O    -O         OCN00fO«—  *-»- 

.     •      .  I     i    I     •     •     •     • 

IS\  O  P»        PO    o  oo  00 


Q^   O   O  O 

pg  r-  r-  <y 


O    Q  O  O  O  O   O 

»-    N  fNJ  *-    f-  *-   r- 


2~       (^^j^.^-^-,^      j^,.^    ^^^.^^^^ 

di  ooqooQo       qooo     oqooooo 


M  (\j    l\J  N  S    N  M 

o  o  q  »-  •-  «->  o 

m  m  i\]  o  o  a  i\i 

r*t  ^jr    o  «—  Po   ho  ^j 

OOr-i-rrtr 

l\IIM    O  O    O  O  ^ 

KIT-   l/j  N   O   1Q  g 

,e  «   o  oo  oo  u  M        o^oo>o* 


KJ    KtKIN 
p+   p-    p-     r* 

qooo 

ui  P-    00  Ok 

>t3    O     -O    n3 

f\J  rsj  ry  rg 
«  kim   g 


o  o  o  o  a  o  o 

O  t\i  r\i  O*   PJ  P-  p- 

^  d  o  •-  a  t-  r- 

t-  NIMrlMOO 

00  C*  O  «-    -O  r»-  00 

p.  p-  oo  oo  a  o  o 

(\1  f\J  I\J   IM   O*  O  > 

PO  f*»    ^     T-     U"»    >0  P* 

o  d  o  o  a  o  o 


• 


" 


B.   Table  II:   Individual  Tree  Volumes:   L239 

Individual  trees  (line  items)  are  identified  on  Table  II  exactly  as 
they  are  on  Table  I.   Table  II  shows  the  cruise  data  as  recorded  in 
the  field.   Tree  volumes  are  computed, for  Scribner  and  International 
1/8,  fixed  top  and  variable  top  log  scales.   Cubic  volume  is  also 
computed  for  all  stems  that  are  5.0  inches  in  diameter  and  larger. 
Both  gross  tree  volume  and  net  volume  per  acre  are  shown.   Mortality 
trees  are  identified  by  tree  history  code.   If  the  mortality  tree 
contains  any  salvage  volume,  it  is  recorded  again  as  a  salvage  tree. 
To  determine  such  things  as  gross  mortality  volume  or  number  of 
mortality  trees  per  acre  etc.,  subtract  Table  IV  from  Table  II  data. 
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Table  II.   Job  Control  Language  and  CRUN  for  L239. 


Job  Control  Language  and  CRUN  Listing 

*OLD  A185/JCL/L239JCL,R 
*LIST 

////N,J 

$:IDENT:A185,MOREDOCK 
$: OPTION :CBL74 

$: SELECT : A134/OBJ/L3290BJ 

$: EXECUTE: DUMP 

$:LIMITS:30,32K, ,30K 

$:TAPE9:Tl,TiD, ,"240TAPE", ,AMFL240, ,DEN16 

$:SYS0UT:L1,0RG 

$:ENDJOB 


*LIST  CRUNL239 

////;       (240TAPENO?) 

OLD   A185/JCL/L239JCL.R 

SYST 

EDIT 

RS:/"240TAPE'7:///1/ 

B 

RS:/,J/ 

S*$USER=DISPOSITION  (PUNCH  CARRIAGE  RETURN  FOR  ONLINE,  OR 

ELSE  ENTER  ,J)? 

$*$NULL 

DONE 

REMC 

LIST 

COUT  *NULL 

RUN 

COUT 


Summary 

The  CRUN  for  L239,  TABLE  II,  accomplishes  the  following  activities: 

1.  Reads  in  the  L240  Master  File  Tape  selected  for  the  inventory 
unit. 

2.  Produces  TABLE  II,  Individual  Tree  Volumes,  from  the  L2- 
input  tape  selected. 
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Form 

A134/CRUNL239 
Responses  to  CRUN  Queries 

1.   L240  TAPENO? 


Respond  with  the  L240  Master  File  Tape  Number  such  as  "2911" 
(Missoula,  Montana,  Unit  01).   This  is  a  4  or  5  digit  number. 

2.   DISPOSITION? 

Respond  with  "Carriage  Return"  for  online,  main  printer; 
or  respond  with  "  ,J"  to  monitor  the  job  execution. 

*JM0N  "SNUMB" 

Normal  Termination 

Direct  the  computer  to  print  your  report  at  the  desired 

location 

*JOUT  "SNUMB" 
Function?   LIST 

DIRECT  ONL 

or 

EPRINT  06 

-  for  remote  terminal  printing. 
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C.    Table  III:   Stand  Density  and  Stocking;   L237 

Table  III  displays  stocking  percent  by  species  and  number  of  trees  per 
acre  by  size  class.   The  five  size  classes  shown  are  seedlings,  sap- 
lings, poles,  small  sawtimber  and  large  sawtimber.   Other  data  shown 
on  Table  III,  which  applies  to  the  entire  plot  cluster,  includes: 
physiographic  information,  aerial  photo  identification,  forest  type, 
average  site  and  yield  capability,  reforestation  data,  habitat,  and 
plot  expansion  factors. 

Only  nine  species  can  be  shown  on  one  sheet  (see  instructions  on 
Fig.  1);  therefore,  several  sheets  may  be  needed  to  show  all  of  the 
species  found  in  some  inventory  units. 
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Table  III.   Job  Control  Language  and  CRUN  for  L237 

Job  Control  Language  and  CRUN  Listing 

*LIST  CRUNL237 

////;  (KEYTAPENO?,240TAPE?) 
OLD  A185/JCL/L237JCL,R 
SYST 
EDIT 

RS:/"K.EYN0"7  ;*:/// 1/ 
B 

RS:/"TAPEN0,7:/#2/ 
B 

RS:/"$'7 

$*$USER=IF  ACFL237  PRESENT  ENTER  $  .ELSE  ENTER  *  ? 
$*$NULL 
B 

RS:/,J/ 

$*$USER=DISPOSITION(CARRIAGE  RETURN  FOR  ONLINE,  OR 

ELSE  ENTER  ,J  )  ? 

$*$NULL 

DONE 

LIST 

REMC 

COUT 

RUN 

COUT 

*OLD  A185/JCL/L237JCL, 

CONTINUE-R 

*LIST 

##N,J 

$ : I DE  NT : Al 8  5 , MOREDOCK 

$:CONVER 

$  '.LIMITS:  10, 10K 

$:TAPE7:IN,A1D, ,MKEYNO", ,, ,DEN5 

$ : INPUT : LODENS , NLABEL , MBCD , NSER, FIXLNG/ 1 4 

$:FILE:OT,A28 

$:OPTION:CBL74 

$: SELECT : A134/OBJ/L2370BJ 

$: EXECUTE: DUMP 

$:LIMITS:50,32K, ,45K 

$:FILE:R1,A2R 

•,$,•:PRMFL:R1,R,S,A150/DAY,•K:EYDAY•7"KEYNO■, 


TAPE9:T1,T1D,,"TAPEN0,, ,  ,AMFL240,  ,DEN16 

SYSOUT:Ll,ORG 

ENDJOB 
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Summary 

The  CRUN  for  L237,  TABLE  III,  does  the  the  following  activities: 

1.  Reads  in  the  L240  Master  File  Tape. 

2.  Reads  in  a  species  and  size  class  key  entry  tape. 

3.  Produces  TABLE  III,  Stand  Density  and  Stocking,  for  the 
inventory  unit  selected.   Because  of  numerous  species,  some 
inventory  units  require  more  than  one  Table  III. 

Form 

A134/CRUNL237 

Responses  to  CRUN  Queries 

1.  KEYTAPENO? 

Enter  the  Key-Tape  Number:   (K001) 

Refer  to  Figure  1  for  key  entry  data  input. 

2.  L240TAPE? 


Enter  the  Forest  Inventory  Master  File  Tape  Number  such  as 
"8718"  Dillon,  Montana,  Unit  02. 

3.  Answer  Question 

If  ACFL237  is  present  enter  $, 

else  enter  *?*.   See  ACFL237  Table    input  format.  (1_/) 

4.  DISPOSITION? 

Respond  with  "Carriage  Return"  for  the  printout  to  be  printed 
on  the  mainline  printer;  otherwise,  Key  in  "  ,J"  to  monitor 
the  job  execution. 

*JM0N  "SNUMB" 

Normal  Termination 

Direct  the  computer  to  print  Table  III  at  the  desired 

location. 

JOUT  "SNUMB" 
Function?   LIST 

DIRECT  ONLINE 

EPRINT  06 

-  for  printing  at  the  remote  terminal 

1_/  The  Table  III  input  layout  sheet  is  shown  on  page  .   Data  for 

Cards  No.  10,  21,  and  22  must  be  entered  on  a  DSC  key-tape  through  the 
Data  Entry  Section. 
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Object  File  Listing 

*CRUN  CRUNL237 

KEYTAPENO?  K000 

240TAPE?  99999 

IF  ACFL237  PRESENT  ENTER  $  ,ELSE  ENTER  *  ?* 

DISPOSITION(CARRIAGE  RETURN  FOR  ONLINE  ELSE  ENTER  ,J)?,J 

*OLD  A185/JCL/L237JCL,R 

*SYST 

*EDIT 

-RS : / "KEYNO" / ; * : /KOOO / 

END  OF  FILE  -  REQUEST  EXECUTED    2  TIMES 

-B 

-RS : /"TAPENO'7  : /99999/ 

-B 

-RS :/"$"/ 

ENTER 
** 

* 

-B 

-RS:/,J/ 
ENTER 
*,J 

-DONE 
*LIST 


////N,J 


IDENT:A185,MOREDOCK 

CONVER 

LIMITS: 10,10K 

TAPE7 : IN, AID, ,K000, , , ,DEN5 

INPUT : LODENS , NLABEL , MBCD , NSER , FIXLNG / 14 

FILE:0T,A2S 

OPTION:OBL74 

SELECT :A134/OBJ/L2370BJ 

EXECUTE: DUMP 

LIMITS:50,32K,,45K 

FILE:R1,A2R 

PRMFL:R1,R,S,A150/ DAY "KEY DAY '7K000 

TAPE9:T1,T1D, ,99999, ,AMFL240, ,DEN16 

SYS0UT:L1,0RG 

ENDJOB 


m 
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D.   Table  IV:   Plot  Volumes  Per  Acre  by  Size  Class:   L236 

Table  IV  shows  volumes  per  acre,  summarized  by  the  tree  size  classes — 
large  sawtimber,  small  sawtimber,  and  poles.   The  diameter  limits  of 
these  size  classes  are  arbitrary  and  may  be  changed  through  program 
updates.   In  addition  to  volumes  and  number  of  trees  expanded  to  a  per 
acre  basis,  such  data  as  location  information,  land  use  strata,  past 
treatment,  timber  stand  age,  legal  description  and  Mercator  projec- 
tions are  shown. 

Table  IV  shows  salvage,  standing  green  tree,  and  mortality  tree 
volumes  as  line  items.   However,  the  mortality  volume  is  excluded  from 
the  summary  figures.   A  warning  sentence  is  printed  at  the  bottom  of 
each  plot  containing  mortality  data.   To  obtain  the  amount  of  salvage 
volume,  subtract  the  sum  of  Table  V  from  the  sum  shown  on  Table  IV. 
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Table  IV.   Job  Control  Language  and  CRUN  for  L236, 


Job  Control  Language  and  CRUN  Listing 

*OLD  A185/JCL/L236JCL,R 
*LIST 

##N,J 

$:IDENT:A185,MOREDOCK 

$:OPTION:CBL74 

$:SELECT:A134/OBJ/L2360BJ 

$: EXECUTE: DUMP 

$:DATA:D1 

$:LIMITS:50,32K 

$:FILE:Ri,NULL 

"$": PRMFL : Rl , R , S , Al 50/DAY "KEYDAY " /K"KEYNO" 

$: SELECT: A185/CONGTBLE 

$: SELECT : A185/HYDROREG 

$ : SELECT : Al 85 /MAP-QUAD 

$: SELECT : A185/PD-TBLIV 

$:SELECT:A185/PI-STRAT 

$:TAPE9:T1,T1D, ,"TAPENO", ,AMFL240, ,DEN16 

$:SYS0UT:L1,0RG 

$:ENDJOB 

*LIST  CRUNL236 

## ;  (KEYDAY? ,KEYTAPENO? ,240TAPE? ) 

OLD  A185/JCL/L236JCL,R 

SYST 

EDIT 

RS:  /  "KEYDAY"  /:///l/ 

RS:/"KEYN0"/:///2/ 

B 

RS:/"TAPEN0"/:/#3/ 

B 

RS:/"$"/ 

$*$USER=IF  ACFL236  PRESENT  ENTER  $  ,ELSE  ENTER  *  ? 

$*$NULL 

B 

RS:/,J/ 

$*$USER=DISPOSITION(CARRIAGE  RETURN  FOR  ONLINE, 

ELSE  ENTER  ,J  )  ? 

$*$NULL 

DONE 

LIST 

REMC 

COUT 

RUN 

COUT 
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Summary 

The  CRUN  for  L236,  TABLE  IV,  accomplishes  the  foil 
activities : 

1.  Reads  in  the  L240  Master  File  Tape. 

2.  Reads  in  an  optional  card  file  (ACFL236)  which  contains 

diameter  size  class  limitations. 

3.  Produces  a  printout  of  TABLE  IV,  Volumes  Per  Acre,  for 

the  inventory  unit  selected. 

Form 


A134/CRUNL236 
Responses  to  CRUN  Queries 
1.   KEY DAY? 


Respond  with  an  asterisk.  (*)  if  the  diameter  size  class 
limitations  shown  on  the  attached  Table  IV  format  are 
satisfactory.   Otherwise,  key  in  the  Keydav  as  shown  on  the 
verified  input  forms. 

2.  KEYTAPENO? 

Respond  with  an  asterisk  (*)  as  described  in  #1  above,  or 
enter  the  new  Key-Tape  Number. 

3.  L240TAPENO? 


Respond  with  the  L240  input  tape  number  for  the  inventory 
unit. 

4.  IF  ACFL236  Present  Enter  $,  Else  Enter  *? 

Respond  with  an  asterisk  (*)  if  the  diameter  size  class 
limitations  shown  on  the  attached  Table  IV  format  are 
satisfactory.   If  optional  card  file  ACFL236  is  present, 
enter  the  dollar  sign  ($). 

5.  DISPOSITION? 

Respond  with  "Carriage  Return"  for  the  printout  at  the 
mainline  printer.   Respond  with  '  ,J"  to  monitor  the  job 
execution. 
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*JMON  "SNUMB" 

Normal  Termination 

Direct  the  computer  to  print  your  report  at  the  desired 

location. 

*JOUT  "SNUMB" 
Function?  LIST 

DIRECT  ONLINE 

or 

EPRINT  06  for  remote  terminal  printing 


57 


eg 

z 
o 


a 
■-■  i 

>—  o  <o 

a.  o  <» 


o 

l/J   Z    Q_ 

UJ  <X    •-• 

Q  •-• 

I    o  to 

_l~ 

>x  or 
t3  .j 


3:  1— 

O  UJ 


u.  o 
a  ■« 


Z  X 

UJ 

3;  o 

h-  z 

ae  <* 

«  -1 

Q- 
UJ 

Q  O 

i/3  3 


I-    3 
tO   33 


2 


•-•   >- 

OD 
I— 
tO  UJ 

uj  ce 
or  o 

o  <* 
u. 
ar 

Z   UJ 
«  Q. 

1 
2:  01 

a  uj 

cj  _i 

«  3 

_i  :> 
11 

3  • 

a. 


11   _i 


g 

3  « 
1    n 

Uj  I— 


CM    <-> 
CM    CM 


t 

»    UJ 


I    - 
Q   3 


UJ    I 
I—    » 


a.  z 

a:  a. 


a 
1 

g 


■ 


O     O 
O    X) 


in  rn  qd 

CM   U"\ 


to 

<«    (3 

z  ac  -■  z  o 
a  1-  -•  z 
~  1         x  — 


•  uj  1—  1—  x. 


<_»  => 


to  tO 

,j    UJ 


<o 


1 

I 
*J 

•_»       im! 

aj       to 


to       o 
to       -• 


5 


ac 
1 1  9  a 

•  •  1 

to  uj        zuo 

to  ts 

«*  < 

to 


tn  r\j  to 

»  ■>  o* 


3^ 


Z 

0 

* 

1— • 

or 

* 

X 

-3 

« 

a 

»— 

* 

3 

<j 

l— 

z 

n 

■ 

N 

Ul 

w+ 

_l 

33 

to 

J 

4 

to 

< 

•—1 

a 

.' 

QE 

oe 

1  1 

0 

< 

i— 

Z 

0. 

u< 

0£ 

0 

z 

'M   a> 


■O  '*!  O 
■O  CM  -O 
X)    «   X) 


d  0 
o  — 

o  — 


>  o  •> 
0  —  0 

o  .-  (, 


o  x>  » 

XI  r~-   d 

DNS 


OOO 
O    —    O 

—  in  — 


*»■>  •©   rn 
>  »o  ■> 


o  o 

X3   13 


«3 
(V   *J 


13   X: 


<t  <*  to 


CM    ■£>    CM 

CM    CM    C\J 


3    3    3 

3  CM    O 

XI  X) 


—  x>   — 
O  f-    o 

CM  ^    CM 


j        1      • 
O  IP  c 


in 


o 

■    K 
—  a 


—   3 


a  ad 


ac  at  . 
uj  1-  1 


o  * 

O    3. 


iT>  i/l 
—  I 

a 


>o  o  o 

O    X>   <J 


auifli/>o 


j  1  >  >: 

•«  .j    •  _> 

I—    D    IC  3    V-  I 

3  I  1—   >— 

—        I  _l 

O  ■«    I 

y    •  i  1- 
ao  j  irvo  ccod 

3  a:   3  3 

to  CL  Oil/ 


I    in    3   *-    •— 
«   -•    —   >-    3  •« 
J1  J)  •—  >—   y> 


^>  5£  _l 
3  O  •» 
_l  3  •- 
X  •—  3 
*/3  *— 


-3     I      ^    r 


_l    4  3E  I-  O 

■«  o  o  a:  33  ar 
2        x  3  3  « 

to       c3  a7   to  _i 


>o  3  X 

-•  ar  3 


_1  UJ 

a  c 


E.   Table  V:   Stocking  and  Volume  Per  Acre  By  Age  Class:   L238 

Volume,  number  of  trees  per  acre,  stocking  percent,  and  basal  area 
data  from  live  standing  green  trees  are  displayed  on  Table  V  by  10 
year  age  classes,  from  10  to  400  years  of  age.   In  a  pseudographic 
format,  this  table  shows  stand  condition  according  to  age  class 
distribution.   The  general  stand  condition  and  existence  of  various 
stories  by  age  classes  can  be  visualized.   Table  V  can  also  be  used  to 
select  the  principal  management  age  when  classifying  plots  according 
to  an  even,  idealized  age  class. 
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Table  V.   Job  Control  Language  and  CRUN  for  L238 


Job  Control  Language  and  CRUN  Listing 

*OLD  A185/JCL/L238JCL,R 
*LIST 

##N,J 


IDENT:A185,MOREDOCK 

OPTION: CBL74 

SELECT :A134/OBJ/L2380BJ 

EXECUTE: DUMP 

LIMITS:50,32K 


"$ " : PRMFL : R 1 , R , S , A 1 50/DAY "KEYDAY " /K"KEYNO" 


TAPE9:T1 ,T1D, , "TAPENO" , , AMFL240, ,DEN16 

SYS0UT:L1,0RG 

SYS0UT:L2,0RG 

ENDJOB 


*LIST  CRUNL238 

#//;  (KEYDAY?  ,KEYTAPENO?  ,  240TAPE?  ) 
OLD  A185/JCL/L238JCL.R 
SYST 
EDIT 

RS :/ "KEYDAY "/:/§!/ 
RS:/"KEYN0"/:/#2/ 
B 

RS: /"TAPENO"/:/ #3/ 
B 

RS:/"$"/  $*$USER=IF  ACFL238  PRESENT  ENTER  $  ,ELSE  ENTER  *  ? 
$*$NULL 
B 

RS:/,J/  $*$USER=DISPOSITION(CARRIACE  RETURN  FOR  ONLINE  ELSE 

,J  )? 

$*$NULL 

DONE 

LIST 

REMC 

COUT 

RUN 

COUT 
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Summary 

The  CRUN  for  L238,  Table  V,  Stocking  and  Volume  Per  Acre  by  Age 
Class,  accomplishes  the  following  activities: 

1.  Reads  in  the  L240  Master  File  Tape. 

2.  Reads  in  an  optional  card  file  (key-tape),  ACFL238. 

3.  Produces  a  Table  V  for  the  Inventory  Unit  selected. 
Form 

A134/CRUNL238 
Responses  to  CRUN  Queries 

1.  KEYDAY? 

Respond  with  an  asterisk  (*). 

2.  KEYTAPENO? 

Respond  with  an  asterisk  (*). 

3.  L240TAPENO? 

Key  in  the  L240  Master  File  Tape  number  for  the  inventory 
unit  desired. 

4.  If  ACFL238  Present:   Enter  $,  Else  Enter  *?_ 
Respond  with  an  asterisk  (*). 

5.  DISPOSITION 

Respond  with  a  "Carriage  Return"  for  the  printout  to  be 
printed  on  the  mainline  printer.   Respond  with  a  "  ,J"  to 
monitor  the  job  execution. 

*JMON  "SNUMB" 

Normal  Termination 

Direct  the  computer  to  print  your  report  at  the  desired 

location 

*JOUT  "SNUMB" 
Function?  LIST 

DIRECT  ONLINE 

or 

EPRINT  XX 
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VIII.   Regression  Analysis 

A.   Polynomial  Regressions 

Foresters  often  must  make  predictions  using  mathematical  equations, 
tabular  listings,  and  plotted  points  on  graphs  for  timber  stand 
attributes,  such  as  volume  per  tree  and  per  acre.   These  attributes 
are  related  to  timber  stand  age,  site  quality,  stand  density,  and 
basal  area  per  acre.   Other  paired  combinations  often  plotted  in 
graphic  form  are  total  tree  height  and  age,  radial  growth  and  stand 
density,  bark  thickness,  and  tree  diameter,  etc.   When  only  two 
variables  are  involved,  the  dependent  variable  is  predicted  in  terms 
of  an  independent  variable,  which  is  a  fixed  rate  on  the  horizontal 
axis  of  the  graph  and  is  generally  considered  the  variable  with  the 
least  or  no  measurement  error. 

Paired  observations  may  have  linear,  curvilinear,  random,  or  no 
relationship  to  each  other.   Coordinates  of  small  samples  are  plotted 
on  graph  paper  to  visually  determine  relationships.   Paired  data, 
which  appear  to  straighten  out  when  plotted  on  semilog  or  logarithmic 
paper,  show  that  the  curve  of  y  over  x  is  exponential. 

An  equation  that  contains  the  best  mathematical  fit  is  developed  from 
the  paired  observations  according  to  the  criteria  of  least  squares. 
This  equation  may  be  a  straight  line  function  (first-degree  curve),  a 
parabola  type  of  function  (second-degree  curve),  or  a  sine  type  of 
function  (third-degree  curve).   The  RUNPOLY  program  is  designed  to 
develop  the  x  and  y  intercepts  and  the  regression  coefficients  for 
paired  observations  for  a  maximum  of  10  degrees.   For  all  practical 
purposes,  a  third-degree  equation  serves  most  forestry  purposes. 
Because  of  memory  storage  problems,  SIMIX  volume  and  growth  matrixes 
use  two  second-degree  equations  (for  timber  stand  volumes  generated 
above  and  below  100  years  of  age).   The  form  of  these  two  equations  is 
generally  as  shown  in  Figure  1,  page  64. 
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Figure  1.    SIMIX  yield  curve  using  second-degree  equations. 
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A  sample  problem  has  been  prepared  and  run  through  the  polynomial 
regression  program.   The  inputs  and  printouts  (reports)  are  available 
on  microfilm.   Please  refer  to  the  inside  title  page  for  the  instruc- 
tions for  ordering. 

1.   Polynomial  Regression  Execution:   A134/RUNPOLY,R 

Execution  of  these  procedures  will  generate  a  polynomial 
regression  analysis.   To  initiate  this  run,  enter  a 
A134/RUNPOLY, R  command  immediately  after  an  asterisk  (*) 
prompt  or  after  a  dash  (-)  while  in  the  EDIT  mode.   The 
/RUNPOLY  program  is  an  extract  of  a  portion  of  the  BMD 
program,  University  of  California,  Los  Angeles. 


2.   Response  to  A134/RUNPOLY  Queries 

Enter  the  appropriate  response  to  the  following  numbered 
queries. 

a.   General 

(1)   ENTER  USER  IDENTIFICATION. 


Type  your  user  identification  code  and  punch  the 
carriage  return  key. 

Users  outside  of  the  Denver  Service  Center  using  central 
computer  high  speed  prints  are  requested  to  enter  their 
Mail  Code  and  Name  on  the  $IDENT  card  along  with  their 
UMC  (i.e.,  $  IDENT  UMC,  MAIL  CODE  NAME). 

EXAMPLE:   $IDENT  A000 ,  UT-930  JANE  DOE 

This  procedure  will  insure  that  the  listing  will  be  sent 
to  the  user  in  a  timely  manner.  All  listings  carrying  a 
mail  code  will  be  sent  out  as  priority  mail. 

Only  the  first  nine  spaces  following  the  comma  will 
appear  as  the  banner  (letters  one-inch  high  on  the  first 
page  of  the  computer  printout). 

Upon  entering  your  ID,  a  second  message  query  will 
appear. 
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(2)   ENTER  CATALOG  STRING  of  INPUT  DATA  FI.  . 


Type  in  the  name  of  the  data  file  that  contains  your 
problem  information.   If  you  are  using  someone  else's 
file,  punch  the  full  file  name  plus  "comma  R"  for  read 
permission.   Refer  to  the  general  time-sharing 
instructions  for  naming,  accessing,  editing,  and  using 
file  storage  areas. 

Before  using  a  set  of  file  data  for  the  first  time,  it 
is  generally  advisable  to  print  a  listing  and  edit  t 
data  on  file. 

Punch  the  carriage  return  key  to  enter  the  file  na 
into  the  program.   Another  request  will  appear. 

(3)  ENTER  PROBLEM  ID  (XX). 

Provide  a  unique,  two-character,  alphanumeric 
designation  for  this  regression  run. 

(4)  ENTER  TOTAL  NUMBER  OF  CASES  ON  FILE  (NNN). 

Provide  a  three-digit,  left-zeroed  number,  less  than 
999.   The  "BMD"  program  can  accept  up  to  2,000  cases. 

(5)  ENTER  DEGREE  OF  POLYNOMIAL  DESIRED  CNN). 

Provide  a  two-digit,  left-zeroed  number  which  is  less 

than  1 1 . 

(6)  ENTER  NUMBER  OF  VARIABLES  PER  RECORD  (NN). 

A  variable  is  the  data  in  one  of  the  fields  of  the  input 
such  as  age,  height,  diameter,  class,  etc.,  which  occupy 
one  or  more  columns.   Provide  a  two-digit,  left-zeroed 
number  indicating  the  number  of  data  elements  on  each 
transaction  record.   The  number  of  data  elements  must 
be  less  than  20  even  though  there  are  more  than 
variables  on  the  file  you  are  using.   You  may  use  the 
standard  FORTRAN  F  Statement  (Item  9)  to  skip  over 
unwanted  variables.   Example:   (37X,  F3.0,  26X,  F5.0, 
9X).   The  computer  will  only  find  two  variables  in  each 
line  of  80  columns  full  of  data  in  this  example.   Refer 
to  No.  9  below  for  the  FORTRAN  statement  format. 

(7)  ENTER  POSITION  OF  INDEPENDENT  VARIABLE  (NN). 

Provide  a  two-digit,  left-zeroed  number  indicating  the 
columnar  section  in  which  the  independent  variable 
element  is  located. 
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(8)  ENTER  POSITION  OF  DEPENDENT  VARIABLE  (NN). 

Provide  a  two-digit,  left-zeroed  number  indicating  the 
column  in  which  the  dependent  variable  element  is 
located. 

(9)  ENTER  FORM  OF  INPUT  DATA. 


Provide  a  complete  FORTRAN  F  STATEMENT,  including 
parentheses,  for  key  input  data.   For  example:   (F3.0, 
F4.1,  F3.0,  F1.0,  F6.1)  represents  column  headings  for 
species,  diameter,  height,  logs,  and  volume. 


b.   Transformations 

( 1 )  DO  YOU  WISH  TRANSFORMATION  FOR  THE  DEPENDENT  VARIABLE 
(1=YES   2=N0)? 

If  transformations  are  desired,  enter  1;  otherwise, 
enter  2.   If  transformations  are  desired,  queries  B2,  3, 
4,  and  5  will  occur.   If  not,  the  queries  will  skip  to 
CI.   The  independent  variable  (X-axis)  cannot  be 
transformed. 

(2)  ENTER  NUMBER  OF  TRANSFORMATION  (N). 

Provide  a  one-digit  number  indicating  the  number  of 
separate  transformations  to  be  applied  to  the  dependent 
variable. 

(3)  ENTER  TRANSGENERATION  CODE  (NN). 

See  BMD  Manual,  page  42,  for  available  two-digit 
transgeneration  codes,  or  the  L291  Burroughs  Input  Form, 
pages  73  to  74,  Figures  2  and  3.   (These  forms  are 
mainly  for  sample  purposes;  however,  Card  6  on  Figure  3 
contains  a  partial  listing  of  the  possible  transgener- 
ation codes.)   Examples  of  simple  transformations  are: 


y,  yc,  ln.y,  —  ,  y  +  constant,  etc. 


(4)   ENTER  CONSTANT  (NNNNNN):   IF  NONE,  ENTER  6  SPACES 

If  the  transformation  identified  in  query  3  requires  a 
constant,  enter  a  six-digit,  left-zeroed  number 
describing  that  constant.   If  not,  enter  six  spaces. 
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(5)  ANYMORE  TRANSFORMATIONS  (1=YES,  2=NO)? 

User  must  complete  the  number  of  transformations 
specified  in  Query  B2.   If  additional  transformations 
are  required,  repeat  steps  3  and  4. 

(6)  Upon  completion  of  the  transformation  series  of  queries, 
the  following  statement  will  appear: 

THE  FOLLOWING  SEQUENCE  OF  REQUESTS  WILL  ESTABLISH 
VARIABLE  SELECTION  CRITERIA. 


c.   Use  of  Bounds  Cards 

Bounds  cards  may  be  used  to  eliminate  part  of  the  data 
file  from  consideration  if  it  does  not  meet  edit 
criteria.   They  can  also  be  used  to  select  only  a  portion 
of  the  data  file  variables  that  have  been  read  into  the 
computer  program. 

For  example:  A  data  file  consists  of  tree  measurements 
taken  from  50  sample  trees.  Recorded  for  each  tree  are 
the  following  five  variables: 

(1)  Tree  Number 

(2)  Species 

(3)  Diameter 

(4)  Height 

(5)  Age 

Suppose  you  wish  to  plot  and  analyze  diameter  (variable 
No.  3,  on  the  y  axis)  over  total  age  (variable  No.  5,  on 
the  X  axis).   However,  the  increment  borer  broke  and  you 
were  unable  to  determine  the  ages  of  trees  Nos.  31  to  50. 
The  tree  ages  for  these  20  trees  were  left  blank.   Unless 
told  otherwise,  the  computer  would  read  the  measurements 
of  tree  No.  31,  for  example,  as  132  feet  tall  and  zero 
years  of  age. 

In  this  example  you  would  use  the  bounds  selection 
process  to  include  in  your  equation  only  those  trees 
whose  ages  (variable  No.  5)  are  greater  than  zero.   You 
may  make  additional  demands  upon  the  data  file  such  as: 
Also,  select  only  those  trees  that  are  coded  as  Douglas 
firs  in  the  species  columns.   Example:   Variable  No.  2 
must  equal  code  202. 
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Logic  is  critical  in  the  selection  of  variable  data 
elements.   You  cannot  make  a  request  such  as:   Select  all 
Douglas  fir  and  ponderosa  pine  trees  in  the  file  because 
the  computer,  being  a  perfect  idiot,  will  search  for  a 
tree  that  is  both  species  at  the  same  time.   This 
selection  must  be  made  in  two  separate  steps  and  be 
recorded  on  two  bounds  cards. 

Enter  dummy  selection  criteria  when  you  wish  to  use  the 
entire  data  file,  such  as:   Select  all  trees  less  than 
00500  feet  tall. 

Respond  to  the  program  queries  as  they  appear: 

(1)  ENTER  VARIABLE  NUMBER  (NN). 

Provide  a  two-digit,  left-zeroed  number  indicating  where 
the  test  variable  is  located. 

(2)  ENTER  TEST  FUNCTION  CODE  (=  is  1,  Not  =  2,  <  is  3,  >  is 
4)-  _ 

Provide  the  numeric  code  indicating  desired  relation 
test. 

(3)  ENTER  DATA  VALUE  (NNNNN). 


Provide  a  five-digit,  left-zeroed  number  against  which 
the  variable  specified  in  Query  CI  will  be  compared. 

(4)   DO  YOU  WISH  TO  ENTER  MORE  SELECTION  INFORMATION  (1  =  YES 
2  =  NO)? 

User  may  enter  up  to  eight  test  functions.   Multiple 
test  functions  are  considered  as  an  "and"  selection 
criterion;  i.e.,  all  test  functions  must  be  satisfied 
before  a  record  is  accepted  by  the  regression  program. 

(4a)   The  User  can  use  this  variable  selection  test  to 

ensure  that  all  valid  data,  or  all  elements  on  the 
file,  are  included  in  the  regression  equation. 

(4b)   When  "no  more  selection  criteria  is  to  be  entered" 
is  coded  into  the  /RUNPOLY  program,  it  will 
proceed  to  its  termination  without  any  further 
responses. 
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3.   Monitoring  Job  Execution 

After  entering  the  last  of  the  selection  codes,  and  a 
number  is  received,  one  may  monitor  the  progress  of  the  run 
as  follows: 

JMON  "SNUMB" 

When  and  if  this  run  goes  to  normal  termination,  JOLT  the 
number  (JOUT  "SNUMB")  and  direct  the  report  to  the  main  site 
printer  (DIRE  ONL),  or  direct  it  to  desired  remote  print 

*JMON  "SNUMB" 
Normal  Termination 
"JOUT  "SNUMB" 
Function?   List 

DIRE  ONL 

EPRINT  06 


4.  Additional  Problems 

To  develop  another  regression  equation,  the  entire  process 
must  be  repeated,  beginning  with  the  A134/RUNPOLY  enti 

5 .  Reading  the  Printout 

The  printout  provides  the  following: 

(1)  The  mean  (average)  of  the  x  and  y  inputs. 

(2)  Correlation  coefficient. 

(3)  Analysis  of  variance. 

(4)  Plot  (graph)  of  the  input  values. 

(5)  Table  of  Residuals. 

6.  CRUN  Listing 

LIST   A134/RUNPOLY 

//#*NULL 

OLD  A185/JCL/EXP0LY,R 

SYST 

EDIT  CASE 

$*$MARK 

RS:/IDIDID/ 

$*$USER=  ENTER  USER  IDENTIFICATION. 

$*$NULL 

RS:/DDDDD/ 

$*$USER=  ENTER  CATALOG  STRING  OF  INPUT  DATA  FILE. 
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$*$NULL 

RS:/NN/ 

$*$USER=  ENTER  PROBLEM  ID  (XX). 

$*$NULL 

RS:/CCC/ 

$*$USER=  ENTER  TOTAL  NUMBER  OF  CASES  ON  FILE  (NNN). 

$*$NULL 

RS:/DD/ 

$*$USER=  ENTER  DEGREE  OF  POLYNOMIAL  DESIRED  (NN). 

$*$NULL 

RS:/VV/ 

$*$USER=  ENTER  NUMBER  OF  VARIABLES  PER  RECORD  (NN). 

$*$NULL 

RS:/IV/ 

$*$USER=  ENTER  POSITION  OF  INDEPENDENT  VARIABLE  (NN). 

$*$NULL 

RS:/DV/ 

$*$USER=  ENTER  POSITION  OF  DEPENDENT  VARIABLE  (NN). 

$*$NULL 

RS: /FORMAT/ 

$*$USER=  ENTER   FORMAT   OF    INPUT    DATA. 

$*$NULL 

CMOD 

$*$MARK 

$*$MARK      DO   YOU  WISH   TRANSFORMATIONS    FOR  THE   DEPENDENT 

VARIABLE 
$*$USER=  (1  =  YES,  2  =  NO)? 
CPOS  EQ1;$TRNG 
B;l 

RS:/TT/:/00/ 
FS:/SPECTG/ 
D 

CPOS  NE1;$SELCT 
$*$LBL  TRNG 

B;l 
RS:/TT/:/01/ 

$*$MARK 

RS:/W/ 

$*$USER=  ENTER  NUMBER  OF  TRANSFORMATIONS  (N). 

$*$NULL 

$*$LBL  MORE 

RS:/WW/ 

$*$USER=  ENTER  TRANSGENERATION  CODE  (NN). 

$*$NULL 

RS:/WWWWWW/ 

$*$USER=  ENTER  CONSTANT  (NNNNNN);  IF  NONE,  ENTER  6  SPACES, 

$*$NULL 

CMOD 

$*$USER=  ANYMORE  TRANSFORMATIONS  (1  =  YES,  2  =  NO)? 

CPOS  EQl;$MORE 
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RS:/W/;*:/  / 

B;3 

$*$LBL  SELCT 

$*$MARK 

$*$MARK   THE  FOLLOWING  SEQUENCE  OF  REQUESTS  WILL  ESTABLISH 

VARIABLE 
$*$MARK   SELECTION  CRITERIA. 
$*$LBL  CONT 
$*$MARK 
RS:/XX/ 

$*$USER=  ENTER  VARIABLE  NUMBER  (NN). 
$*$NULL 
RS:/X/ 
$*$USER=ENTER  TEST  FUNCTION  (=  IS  1,  NOT  «  IS  2,  <  IS  3   >  IS 

4). 
$*$NULL 
RS:/XXXXX/ 

$*$USER=  ENTER  DATA  VALUE  (NNNNN). 
$*$NULL 
CMOD 

$*$MARK   DO  YOU  WISH  TO  ENTER  MORE  SELECTION  INFORMATI 
$*$USER=  (1  ■  YES,  2  =  NO)? 
CPOS  EQl;$CONT 
RS:/X/;*:/0/ 
SYST 

COUT  NULL 
RUN 
COUT 

*BYE 


7.   Job  Control  Language 

*OLD  A185/JCL/EXPOLY,R 
*LIST 

##A,J   ;1 

$       IDENT    IDIDID 

$      OPTION   FORTRAN 

$      SELECT   A134/OBJ/POLYOBJ 

$      EXECUTE 

$      LIMITS   ,32K 

$       PRMFL    08,R,S,DDDDD 

PROBLMNNCCCDD01TT   VVIVDV 

FORMAT 

S  P  E  CTGW WWWWWW WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWV^ 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

FINISH 

$       ENDJOB 
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B.   Stepwise  Regressions. 

The  stepwise  regression  system  is  used  for  prediction  and  optimi- 
zation of  a  series  of  related  variables.   The  stepwise  regression 
procedure  is  equivalent  to  solving  numerous  linear  equations  simul- 
taneously for  numerous  unknowns.   The  dependent  variable  you  may  wish 
to  consider  may  be  influenced  by  two  or  more  independent  variables. 
For  example,   radial  growth  or  diameter  increment  of  an  average  tree 
in  the  forest  stand  is  dependent  upon  (1)  stand  density,  (2)  length  of 
crown,  (3)  stand  age,  (4)  species,  (5)  site  quality,  and  (6)  habitat 
type. 

When  all  other  influences  are  held  constant,  radial  growth  is  not 
affected  by  low  stand  density  because  genetic  limitations  of  the 
species  control  how  fast  it  can  grow.   At  stand  densities  over  50 
percent,  competition  for  light,  moisture,  and  nutrients  begins  to 
prevail,  and  the  growth  curve  drops  in  proportion  to  the  increase  in 
stand  density.   A  combination  of  the  six  items  listed  above  can  be 
built  into  an  equation  which  will  predict  growth  under  any  degree  or 
measurement  of  the  elements  listed. 

A  sample  problem  (radial  growth  of  forest  trees)  has  been  prepared  and 
run  through  the  stepwise  regression  program  at  the  Denver  Service 
Center.   The  input  data  and  computer  printout  have  been  microfilmed 
and  are  available  on  microfiche.   Please  refer  to  the  title  page  for 
ordering  instructions. 

This  stepwise  regression  program  can  be  used  with  excellent  results  by 
range,  soils,  wildlife,  and  other  biological  scientists  and  resource 
managers  to  accomplish  their  duties.   Land  appraisers  and  others 
dealing  with  dollar  values  can  also  analyze  the  economic  significance 
of  a  variable  such  as  "distance  from  town"  which  affects  the  total 
value  of  the  resource  being  considered. 

To  save  terminal  entry  time,  two  data  files,  with  specific  names, 
(1)  FILE03  and  (2)  FILE05  are  required.   Refer  to  TSS  instructions  for 
creating  a  file.   A  Key  Entry  specialist  can  enter  and  edit  the  data 
which  goes  into  each  of  these  files.   Refer  to  Figure  4,  p.  90,  for  a 
sample  of  the  format  to  be  used. 

The  terminal  user  needs  only  to  respond  to  the  program  queries  to 
operate  the  stepwise  regression  program. 

A  copy  of  the  card  deck  setup,  p.  77,  shows  the  lineup  of  each  of  the 
entry  item(s)  for  FILE03,  FILE05,  and  Terminal  Entry  inputs. 
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Because  of  the  interaction  between  the  three  input  files  and  the 
complexity  of  actions  taking  place,  it  is  recommended  that  first-t 
users  read  completely  through  this  section  and  also  examine  the  sample 
problem  that  is  available  on  microfilm  before  attempting  to  develop 
their  own  problem. 

The  program  will  ask.  the  user  some  highly  technical  statistical  qu- 
tions  such  as,  "F-levels  for  inclusion  and  deletion?"  and  "Tolerance 
Level?".   Use  the  default  values  given  if  in  doubt.   Refer  to  any  good 
textbook,  such  as:   Probability  and  Statistics  for  Engineers,  Irwin 
Miller  and  John  E.  Freund ,  1965,  Prentiss  Hall-Mathematics  Series, 
a  detailed  explanation  of  statisitical  terminology. 
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1 .   Deck  Setup  for  Stepwise  Regression 


Terminal  Entry       j./lDXPLT  -  Index-plot  Card(s)     T6 


i./C0DEL    -  Control   Deletion   Card(s)      T5 


h./SUBPR0  -  Subproblem  T4 

g./B0UNDS  -  Bounds  Card(s)  T1-T3 


I 


L 


I 


File  05      f./DATA  DECK Data  Stored  in  FILE05 


File  03    e./F-Type  Variable  Format  Card(s)         #5 


d./LABELS   -   Labels    Card(s)  #4 


c./TRNGEN   -  Transgeneration   Card(s)  #3 


b./PR0BLEM  -   Problem  Card  #2 


a.  Alphanumeric   Name    Card  #1 

0  DD   D         D  D 
D  D      DD 

2.   Execution  of  the  Stepwise  Regression,  Catalog  A134/RUNREGR,R 
The  following  instructions  describe  the  procedure  for  the 
interactive  (terminal  batch)  execution  of  the  stepwise 
regression  program: 


3.   Input  Data 

Data  will  be  loaded  into  two  permanent  disc  files  (/FILE05, 
/FILE03),  and  from  a  terminal. 

FILE05  -  contains  the  data  you  want  to  run  regression 
analysis  on  (Fig.  4). 

FILE03  -  contains  title,  problem  card,  label  card,  and 
format  statement  for  the  data  file  FILE05. 
(See  sample  problems,  Figs.  5  and  6). 

Key  in  from  terminal  -  Bounds  cards  (if  any)  .  .  .  BOUNDS 

Subproblem  card  SUBPRO 

Index  plot  card IDXPLT 
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A.   Job  Control  Language 

*OLD  A185/JCL/STEPREGR.R 
*LIST 

##N,J 
$:IDENT:IIIII 

$: OPTION: FORTRAN 

$: SELECT :A134/OBJ/REGRSOB 

$: EXECUTE 

$:PRMFL:03,R,S,FILE03 

$:PRMFL:05,R,S,FILE05 

$: DATA: 04 

BB  B  B  B  BWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

BBBBBBWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

BBBBBBWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

SUBPROWWWWWWWWWWWWWWWWWWWWwWWWWWWWWWWWWWW^ 

CONDELWWWWWWWWWWWWWWWWWlMfWW 

IDXPLTWVWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW 

$:LIMITS:25,30K 

$:FILE:01,X2S 

$:FILE:02,X1S 

$ : ENDJOB 

5.  Form 
*A134/RUNREGR,R 

6.  Responses  to  Program  Queries 

The  stepwise  regression  program  contains  a  series  of  general 
information  questions  and  detailed  queries  concerning  bounds, 
subproblems,  control  and  index  plot  card  inputs.   To  avoid 
input  errors,  it  is  advisable  to  record  the  input  data  for 
FILE03  on  a  set  of  blank  forms  and  to  list  the  responses  you 
will  wish  to  make  to  each  of  the  program  queries  in  order  of 
their  appearance. 

a.   General  Information  Queries 

The  stepwise  regression  program  will  respond  with  the 
following  general  information  queries  as  soon  as  you  log 
onto  the  computer  and  transmit  the  program  selection 
code. 

(1)   ENTER  USER  IDENTIFICATION. 


Users  outside  the  Denver  Service  Center  who  direct  their 
print  request  to  the  central  computer  high-speed  printer 
are  requested  to  enter  their  Mail  Code  and  Name  on  the 
$IDENT  card  along  with  their  USER  Master  Catalog  code 
number. 
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EXAMPLE:   $ I DENT  A999,  UT-930  JANE  DOE 

All  listing  carrying  a  mail  code  will  be  sent  out  as 
priority  mail. 

The  banner,  letters  one-inch  tall  on  the  first  page  of 
the  computer  report,  contains  the  information  recorded 
in  the  first  nine  spaces  following  the  comma  of  the 
identification  line. 

Upon  entering  your  identification,  the  next  program 
query  will  appear. 

(2)   ENTER  CATALOG  STRING  FOR  DATA  FILE03. 


Key  in  the  full  name  of  the  catalog-file  string  for 
FILE03.   This  file  must  contain  the  following  informa- 
tion as  shown  on  the  sample  problems,  Figures  5  and  6. 

EXAMPLE:   A134/TREES/FILE03 

(a)  Alphanumeric  Problem  Name. 

(b)  Problem  Subname. 

(c)  Transgenerations  Used. 

(d)  Labels  for  Variables. 

(e)  FORTRAN  F  Statement  for  Data  FILE05. 

The  catalog,  subcatalog,  file  string  system  allows  the 
user  to  work  on  more  than  one  problem  at  a  time. 
Different  FILE03  inputs  can  be  stored  under  separate, 
unique,  subcatalog  names. 

Please  refer  to  the  Time  Sharing  System  manuals  which 
explain  how  to  create,  name,  and  edit  a  file  if 
necessary. 

Punch  the  carriage  return  key  to  enter  the  file  name. 

The  next  request  will  appear: 

(3)   ENTER  CATALOG  STRING  FOR  DATA  FILE05. 

Type  and  enter  the  name  of  the  complete  catalog-file 
string  of  the  specific  FILE05  which  contains  the 
resource  data  measurements  to  be  used  in  your  regression 
problem. 

It  is  generally  advisable  to  inspect  file  contents 
before  executing  the  /RUNREGR  program  to  insure  that  all 
is  in  order  and  the  F  statement  is  correct  for  the  data 
to  be  used.   The  EDIT  program  is  limited  to  an 
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80-character  length  line  of  data.   The  PD  Extensive 
Forest  Inventory  Master  File  has  a  length  of  632 
characters  per  tree  record.   Use  the  REX  or  some  other 
extract  program  to  condense  large  files  down  to  a 
maximum  of  80  characters. 

b.  Bounds  Cards  Queries 

(1)  Is  bounds  card  present? 

If  it's  YES,  enter  1;  otherwise,  enter  2. 

(2)  Bounds  card  is  deleted? 

If  Question  1=2,  key  in  1.   The  query  will  continue 
with  c.  (1 ). 

(3)  Enter  index  of  variable  (NN). 

Provide  two-digit  numeric  (e.g.,  01),  indicating  ind* 
of  the  test  variables. 

(4)  Enter  test  function  (=  is  1 ,  >  is  2 ,  <  is  3,  NOT  =  is 
A). 

Provide  corresponding  numeric  code. 

(5)  Enter  data  value  (NNNNN). 

Provide  five  digits,  indicate  the  value  of  the  test 
function  that  the  variable  in  FILE05  must  satisfy:   U 
an  F  5.2  format  for  the  data  value. 

(6)  Do  you  have  more  tests  (1=YES,  2=N0)? 

If  you  have  more  selection  criteria,  enter  1;  otherwise, 

enter  2. 

You  can  input  4  selection  criteria  in  one  card. 

(7)  Do  you  have  more  bounds  cards? 

If  you  have  more  bounds  cards,  enter  1;  otherwise,  enter 

2. 

You  can  input  a  maximum  of  3  bounds  cards. 

c .  Subproblem  Card  Queries 

(1)  Enter  index  of  dependent  variable  (NN),  else  enter  2 
zeros  (Z's). 

Enter  2  digits,  right  justified,  filled  with  zero. 

(2)  Maximum  number  of  steps  (NNN),  else  enter  3  Z's. 
Enter  number  of  steps  you  desired. 

(3)  Enter  F-level  for  inclusion  (NNNNNN),  else  enter  6  Z's. 
Provide  six  digits,  right  justified  filled  with  zero. 
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(4)  Enter  F-level  for  deletion  (NNNNNN),  else  enter  6  Z's. 
Provide  six  digits,  right  justified  filled  with  zero. 

(5)  Enter  tolerance  level  (NNNNNN),  else  enter  6  Z's. 
Provide  six  digits,  right  justified  filled  with  zero. 

(6)  Enter  number  of  variables  (NN)  on  Index  Plot  Card,  else 
enter  2  Z's.  Provide  number  of  variables  on  the  Index 
Plot  card  (0  <  i  <  30),  right  justified  filled  with 
zero. 

(7)  Enter  YES  if  control-delete  cards  are  included  (NNN), 
else  type  3  Z's. 

(8)  Enter  YES  if  list  of  residuals  to  be  printed,  or  else 
enter  3  Z's. 

(9)  Enter  YES  if  summary  table  to  be  printed,  else  enter  3 
Z's. 

d.  Control-Delete  Card  (CONDEL)  Queries 

(1)  Does  control-delete  card  exist?   (1=YES,  2=N0). 

If  control-delete  card  exists,  enter  1;  otherwise,  enter 
2. 

(2)  Control  card  is  deleted? 

If  Question  d.l.  is  2,  enter  1.   Query  will  continue 
with  Question  e.l. 

(3)  Enter  control  value  (N),  else  enter  a  zero. 
Enter  C-D  value. 

(4)  More  control  value. 

If  it's  YES,  enter  1;  otherwise,  enter  2. 

e.  Index  Plot  Cards  (IDXPLT)  Queries 

(1)  Enter  index  of  the  variable  to  be  plotted,  else  enter  2 
Z's. 

Enter  index  of  the  variable  (right  justified  with  zero 
filled). 

(2)  More  variable  to  be  plotted. 

If  it's  YES,  enter  1;  otherwise,  enter  2. 

When  a  2  is  entered,  the  program  assumes  no  more  inputs 
are  forthcoming  and  will  proceed  to  completion  of  the 
problem. 


NOTK :   The  test  queries  of  a  bounds  card  is  an  "and" 
function.   Each  of  the  four  tests  allowed  must  be 
compatible  with  each  other.   Also,  the  replies  to  bounds 
cards  2  and  3  queries  must  not  conflict  with  replies 
given  to  bounds  card  1 . 

7.   Card  Preparation.  (From  BMD  Biomedical  Computer  Programs, 
University  of  California,  Los  Angeles,  California) 

Preparation  of  the  cards  listed  below  is  specific  for  this  program. 
Refer  to  Figures  5  and  6  for  sample  problem  inputs. 

a.  Name  Card  (Mandatory).   Up  to  72  alphanumeric  characters  may 
be  used  to  identify  this  problem. 

b .  Problem  Card . 

Col.  1-6  PR0BLM          (Mandatory) 

Col.  10-15  Alphanumeric  problem  name 

Col.  17-20  Sample  size  (1  <  n  <  9999). 

Col.  24,25  Number  of  original  variables  (2  <^  p  <   8 

Col.  29,30  Number  of  Transgeneration  Cards  (0  <  n  <  99). 

Col.  34,35   Number  of  variables  added  by  transgeneration 
(-9  <  q  <  78). 

Col.  37      Number  of  bounds  cards.   Must  agree  with  terminal 
input  data  number  (max.  3). 

Col.  39,40   Tape  number  if  data  is  on  tape  (^  logical  2); 
otherwise,  leave  blank. 

Col.  44,45   Number  of  Subproblem  Cards  (1) 

Col.  48,49   Number  of  variables  labeled  on  Labels  Cards. 
Leave  blank  if  Labels  Cards  are  not  used. 

Col.  51-53   YES   If  means  and  standard  deviations  are  to  be 
printed;  otherwise,  leave  blank. 

Col.  55-57   YES   If  covariance  matrix  is  to  be  printed: 
otherwise,  leave  blank. 

Col.  59-61   YES   If  correlation  matrix  is  to  be  printed; 
otherwise,  leave  blank. 
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Col.  63-65   YES   If  zero  regression  intercept  is  desired; 
otherwise,  leave  blank. 

Note:   When  presence  of  a  constant  term  in 
the  model  (i.e.,  non-zero  intercept)  is  in 
question,  punch  YES  in  column  63-65  and 
generate  a  "constant"  variable  (i.e.,  one 
which  is  identically  equal  to  1).   As  the 
program  treats  this  "constant"  variable  like 
other,  its  F-to-enter  and  F-to-remove  value 
will  decide  whether  the  constant  term  (i.e., 
the  coefficient  of  this  "constant"  variable) 
will  be  used  in  the  model  or  not. 

Col.  68,69   NO    If  tape  specified  in  Columns  39,40  is  not 
to  be  rewound  before  this  problem,  leave 
blank  if  Columns  39,40  are  blank  or  if  tape 
rewind  is  desired. 

Col.  71,72       Number  of  F-type  Variable  Format  Cards 
(1  <  k  >  10). 

c.   Transgeneration  Cards 

The  term  transgeneration  is  used  to  include  transformations 
of  input  variables  and  creation  of  new  variables  prior  to  the 
computations  performed  by  the  various  programs. 

Most  BMD  programs  contain  transgeneration  options  in  the  form 
described  below.   Exceptions  are  noted  in  the  "Limitations" 
in  the  individual  program  writeups.   Transgenerations  may  be 
performed  for  any  of  the  BMD  programs  by  the  transgeneration 
programs  BMD09S,  BMD12S,  or  BMD13S. 

By  use  of  the  transgeneration  cards,  new  variables  may  be 
created  by  performing  algebraic,  trigonometric,  exponential, 
and  logarithmic  transformations  on  the  original  variables. 
These  variables  may  either  replace  the  old  variables  or  they 
may  be  entirely  new  variables  with  new  numbers.  For  example, 
suppose  there  are  two  original  variables,  variable  1  and 
variable  2.   Then  a  third  variable,  variable  3,  could 
be  created  by  letting  variable  3  be  the  square  root  of 
variable  2.   This  would  require  coding  "TRNGEN"  in  columns 
1-6  of  a  control  card,  the  original  variable  number  (2),  a 
transgeneration  code  for  square  root  operation,  and  the  new 
variable  number  (3)  according  to  a  specified  format.   A 
complete  discussion  of  the  transgeneration  concept,  a  list  of 
possible  transgenerations,  and  transgeneration  coding 
instructions  are  included  in  subsection  B  on  page  40  of  the 
BMD  textbook. 
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Card  Preparation 

In  the  sample  problem,  variable  No.  4  (DBH),  is  squared  and 

the  product  is  named  DBHDBH.   This  new  variable  is  indexed  as 

variable  12.   Transgeneration  code  No.  10  (xc),  where  c  =  2 
is  used  in  card  No.  3. 

Col.   1-6    TRNGEN   (Mandatory) 

Col.   7-9    Variable  index  k 

Col.  10,11   Code  from  transgeneration  list  (restricted  by 
availability  in  particular  program) 

Col.  12-14   Variable  index  i 

Col.  15-20  Variable  index  j  or  constant  c 

d .   Labels  Cards 

Labels  Cards  allow  the  user  to  substitute  alphanumeric  names 
for  the  usual  numeric  indices  (variable  numbers  or  categ 
designations)  which  appear  on  the  printed  output. 

Card  Preparation 

Col.   1-6    LABELS   (Mandatory) 

Col.   7-10  The  number  of  the  variable  (or  category,  or 
index)  to  be  named.   This  number  must  be  right- 
justified  . 

Col.  11-16   The  corresponding  alphanumeric  name. 
Col.  17-20   The  number  of  another  variable 

Col.  21-26   The  corresponding  alphanumeric  name 


Col.  67-70   The  number  of  another  variable 

Col.  71-76   The  corresponding  alphanumeric  name 
(up  to  7  per  card) 

There  may  be  from  one  to  seven  pairs  of  variable  numbers  and  labels  on 
each  Labels  Card.   If  desired,  only  one  pair  may  be  specified  on  each 
card.   However,  the  total  number  of  labels  appearing  on  all  the  Labels 
Cards  must  equal  the  number  of  labels  specified  on  the  Problem  or  Sub- 
problem  Card. 
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It  is  not  necessary  to  label  all  the  variables.   Those  labeled  may  be 
listed  in  any  order. 

Example:   Suppose  the  number  of  variables  to  be  labeled  as  specified 
on  the  Problem  Card  is  9.   Then  the  Labels  Cards  might  be  punched  as: 

LABELS  10HEIGHT  07WEIGHT  105AGE  003  XI  051  VAR59  0073  X+Y 
LABELS  99SEX  0100ANYNAM 
LABELS  05STATUS 

e.  Variable  Format  Card(s)   (Mandatory) 

Enter  the  standard  F-type  FORTRAN  statement.   The  F  statement 
must  conform  to  the  data  input  file  and  the  label  cards. 

Example:   (F  3.0,  2x,  F  1.0,  F  3.1,  F  5.2)   Do  not  leave  any 

f.  blanks  when  keypunching  the  _F  statement. 

Data  Deck  (FILE05) 

The  data  on  which  you  wish  to  run  the  regression  must  be 
stored  in  your  data  file,  identified  in  your  catalog  file 
string  as  FILE05,  as  the  program  is  presently  designed. 

It  is  generally  advisable  to  print  an  edit  listing  of  your 

data  file  in  order  to  inspect  the  data  before  running  a 

regression  analysis.  Use  the  bounds  cards  to  exclude  line 
items  which  contain  noncompatible  data. 

g. 

Bounds  Card(s)   (Optional) 

The  user  may  select  a  portion  of  the  file  data  through  the 
use  of  bounds  cards.   Three  separate  bounds  cards  are 
allowed.   Each  of  these  has  up  to  four  tests  that  the  data 
must  pass  to  be  included  in  the  problem.   Use  of  logic  in  the 
selection  criteria  is  critical.   For  example,  if  you  wish  to 
extract  only  Douglas  fir  (code  202)  and  ponderosa  pine  (code 
122)  species  to  analyze,  two  bounds  cards  are  required.   A 
tree  cannot  be  both  a  species  202  and  a  species  122  at  the 
same  time.  That  is  what  would  be  implied  if  only  one  bounds 
card  is  used. 

In  response  to  terminal  queries,  the  number  of  bounds  card 
inputs  must  match  the  number  of  bounds  cards  identified  in 
FILE03  on  the  PROBLEM  card. 

Dummy,  unproductive  numbers  may  be  used  to  bypass  the  number 
of  bounds  cards  identified  on  the  PROBLEM  card.   This  is 
often  easier  than  changing  the  contents  of  FILE03,  card 
No.  2. 
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h.   Subproblem  Card 

Col.   1-6     SUBPR0 

Col.   9,10    Index  of  the  dependent  variable 

Col.  13,15  Maximum  number  of  steps.  This  will  be  2(p  +  q) 
if  left  blank.  This  is  the  value  of  F,  not  its 
significance. 

Col.  20-25  F-level  for  inclusion.  This  will  be  0.01  if 
left  blank.  This  is  the  value  of  F,  not  its 
significance. 

Col.  30-35  F-level  for  deletion.  This  will  be  0.005  if 
left  blank.  This  is  the  value  of  F,  not  its 
significance. 

Col.  40-45   Tolerance  level.   This  will  be  0.001  if  left 
blank.   The  tolerance  level  should  not  be  set 
lower  than  .001  on  computers  with  small  word 
sizes  such  as  IBM  360.   Use  BMDP9R  for  highly 
ill-conditioned  problems. 

Col.  49,50    Number  of  variables  on  the  Index-Plot  Card 
(0  <  i  >  30) 

Col.  53-55   YES   If  Control-Delete  Cards  are  included. 

Col.  58-60   YES   If  list  of  residuals  is  to  be  printed. 

Col.  63-65   YES   If  summary  table  is  to  be  printed. 

i.   Control-Delete  Card    (Optional) 

Col.  1-6    C0NDEL    (Mandatory) 

Col.  7      Control  value*  for  first  variable 

Col.  8     Control  value*  for  second  variable 


Col.  72    Control  value*  for  66th  variable 

If  there  are  more  than  66  variables,  continue  on  another  card  of  the 
same  form,  until  p  +  q  variables  have  been  specified. 

The  variable  numbers  above  refer  to  variables  after  transgeneration. 
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*CONTROL  VALUES 

1.  Delete  variable  (or  dependent  variable) 

2.  Free  variable 

3.  Low-level  forced  variable 

•   •   • 

9.   High-level  forced  variable 

If  no  Control-Delete  Cards  are  included,  or  if  a  field  is  left  blank 
on  the  Control-Delete  Cards  included  in  the  deck,  the  value  2  will  be 
assigned  if  the  variable  is  not  the  dependent  variable  and  the  value  1 
assigned  if  it  is  the  dependent  variable. 

j.   Index-Plot  Card    (Optional) 

Variables  specified  on  this  card  are  plotted  against  the 
residuals. 

Col.  1-6     IDXPLT    (Mandatory) 

Col.  7,8    Index  of  the  first  variable  to  be  plotted 

Col.  9,10    Index  of  the  second  variable  to  be  plotted 


Col.  65,66   Index  of  the  30th  variable  to  be  plotted 

No  more  than  30  variables  may  be  plotted  per  subproblem. 

Variables  specified  refer  to  the  original  data  after  trans- 
generation. 

k.   Limitations  per  problem: 

(1)  p,      number  of  original  variables  (2  <^  p  _<  80) 

(2)  q,       number  of  variables  added  by  transgeneration 

(-9  <  q  <  78) 

(3)  p  +  q,  total  number  of  variables  ( 2  _<  p  +  q  <   80) 

(4)  s,  number  of  Subproblem  Cards  (1  <_  s  _<  99) 

(5)  k,  number  of  Variable  Format  Cards  ( 1  <_  k  _<  10) 

(6)  i,  number  of  variables  to  be  plotted  (0  _<  i  <   30) 

(7)  n,  number  of  cases  (1  <  n  <  9999) 

(8)  m,  number  of  Transgeneration  Cards  (0  <  m  <  99) 

When  you  indicate,  in  response  to  the  terminal  query  that  there  are  no 
more  variables  that  you  wish  to  be  plotted,  the  program  will  begin  its 
computations.  If  no  errors  are  found,  the  regression  will  continue  to 
normal  termination. 
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8.  Monitoring  Job  Execution 

After  entering  the  responses,  one  may  monitor  the  progress  of  the  run 
as  follows: 

JMON  "SNUMB" 

When  and  if  this  run  goes  to  normal  termination,  JOUT  the  number  (JOUT 
"SNUMB")  and  direct  the  report  to  the  main  site  printer  (DIR E  ,  or 
direct  it  to  desired  remote  printer. 

*JMON  "SNUMB" 
Normal  Termination 
"JOUT  "SNUMB" 
Function?   List 

DIRE  ONL 

EPRINT  06 

9.  Additional  Problems 

To  develop  another  regression  equation  the  entire  process  must  be 
repeated  beginning  with  the  /RUNREGR  entry. 

1 0 .   Reading  the  Printout 

The  printout  provides  the  following: 

a.  A  summary  of  some  input  variables 

b.  Results  of  the  bounds  selection  criteria 

c.  Means  and  standard  deviation  of  each  variable 

d.  Covariance  Matrix 

e.  Correlation  Matrix 

f.  Equations  for  each  step  number  with  multiple  R 
Standard  error  of  the  estimate 

Analysis  of  variance 
Variables  in  the  equation 
Variables  not  in  the  equation 

g.  Summary  table  if  requested 

h.   List  of  Residuals  if  requested 

i.   Plot  of  residuals  vs.  the  variable  as  requested 
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1 1.   Sample  Problem 


Field  Data  to  be  Analyzed  Using  Stepwise  Regression* 


Given: 


A  data  file  contains  the  information  records  of  15  sample  trees, 
The  items  recorded  for  each  tree  are  as  follows: 

(1)  Plot  number 

(2)  Species  code 

(3)  Tree  class  code  (desirable,  acceptable,  etc.) 

(4)  Diameter  at  breast  height  (inches) 

(5)  Total  height  (feet) 

(6)  Total  age  (years) 

(7)  Ten-year  diameter  increment  (wood  only)  (inches) 

(8)  Bark  thickness  (inches) 

(9)  Crown  class  code  (dominant,  codominant,  tec.) 

(10)  Crown  length  (percent  of  total  height) 

(11)  Basal  area  per  acre  (square  feet) 


*Figure  4  on  the  following  page  is  the  actual  field  data  that 
must  be  stored  in  FILE05. 
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Figure    4.       DIAMETER  INCREMENT  STUDY  -  Stepwise  Regression 


Copy  of  field  data 
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Problem  No.  1 

Develop  a  stepwise  equation  for  predicting  diameter  increment  (growth) 
of  Douglas  fir  (202)  and  ponderosa  pine  (122)  species  from  the  sample 
tree  data  in  your  data  field. 

-  Carry  the  problem  out  to  a  maximum  of  ten  steps. 

-  Make  transformations  of  data  if  desirable. 

-  List  means  and  standard  deviations. 

-  Develop  a  covariance  matrix. 

-  Develop  a  correlation  matrix. 
Develop  a  summary  table  of  multiple  R  . 
Prepare  a  list  of  residuals. 

Plot  the  five  most  significant  variables. 

-  Do  not  include  variables  in  the  equation  that  do  not  have  a 
biological  significance. 


*   Refer  to  Figures  5  and  6  for  the  data  to  be  put  in  FILE03. 

**  Refer  to  the  microfiche  card  for  the  report  (printout) 
developed  through  the  execution  of  this  problem. 
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IX.   SIMIX  Input  Programs 

The  five  programs  used  for  summarizing,  consolidating  and  manipulating 
acreage  and  volume  data  that  is  used  as  inputs  in  the  BLM  forest  simu- 
lation modeling  system  (SIMIX)  are  described  in  this  chapter.   These 
programs  are  listed  as  follows. 


—  L260,  SIMIX  Plot  Acreage  and  Volume  Summaries. 

—  L261  and  L262  (Combined  =  L2612) 

Tree  Data  Reports:   L264 

Polynomial  Regression  of  Plot  Age  and  Volume:   L262 
These  reports  can  also  produce  individual  tree  growth 
records  and  a  polynomial  regression  equation  of  plot 
growth  and  plot  age. 

—  L263,  Curve  Harmonizer  Program. 

—  L248,  Multiple-Use  Factor  Program. 


Field  plot  classification  data,  in  conformance  with  URA  or  MFP  harvest 
classification  systems,  must  be  recorded  on  the  Field  Plot  Master  File 
before  these  programs  can  be  executed. 

The  extensive  inventory  master  tree  file  may  show  a  biologically 
perfect  aspen  tree  as  a  tree  class  No.  10,  "Desirable  Tree."   In 
addition,  cubic  foot  volume  is  computed  for  all  trees  5.0  inches  in 
diameter  and  larger,  and  board  foot  volume  is  computed  for  trees  6.0 
inches  in  diameter  and  larger.   Aspen  trees  are  not  considered  as  a 
merchantable  species  throughout  most  of  the  Rocky  Mountain  States. 

Programs  L260  and  L261  contain  provisions  for  selection  and/or  exclu- 
sion of  specific  tree  species  and  classes,  diameter  classifications, 
URA  and  MFP  harvest  classifications,  and  multiple-use  restrictions  in 
the  compilation  of  plot  summaries  and  regression  equations. 

State  Directors  and  District  Managers  set  the  standards  for  species 
merchantability  and  minimum  diameter  limits  by  species  for  trees  to  be 
included  in  the  allowable  cut  alternatives.   Programmers  must  be 
provided  a  listing  of  these  standards  so  that  they  can  hard  code  the 
selection  criteria  for  species  and  size  merchantability  into  programs 
L260,  L261,  and  L262. 
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A.   SIMIX  Plot  Acreage  and  Volume  Summary  Program:   L260 


1.   Execution  of  CRUN  L260 

The  SIMIX  Plot  Summary  Program  develops  forest  acreages  by  age  classes 
and  harvest  codes  for  Scribner  and  International  board  foot  and  cubic 
foot  utilization  standards.   Existing  timber  volume  is  shown  per  plot 
(acre)  and  for  the  expanded  age  class  strata.   Site  quality  by  field 
plot  location,  age  classes,  and  harvest  regimes  is  also  computed. 


2.   CRUN  Listing  for  L260 

*LIST  CRUN  L260 

#//;(MSTRTAPE?) 

OLD  A185/JCL/L260JCL,R 

SYST 

EDIT 

RS:DATACRD1/ 

$*$USER=ENTER  DATA  CARD1? 

$*$NULL 

RS:/2NDDATA2/ 

$*$USER=ENTER  DATA  CARD2? 

$*$NULL 

RS:/2NDDATA3/ 

$*$USER=ENTER  DATA  CARD2 ? 

$*$NULL 

RS:/2NDATA4/ 

$*$USER=ENTER  DATA  CARD2? 

$*$NULL 

RS:/MSTRTAPE/;*:///l/ 

B 

RS:/,J/ 

$*$USER=DISPOSITION(CARRIAGE  RETURN  FOR  ONLINE,  ELSE  ENTER  ,J)? 

$*$NULL 

DONE 

LIST 

REMC 

COUT 

RUN 

COUT 
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3.   Job  Control  Language  for  L260 

*OLD  A185/JCL/L260JCL,R 
*LIST 

##N,J 

$:IDENT:A185,  MOREDOCK 

$:OPTION:COBOL 

$: SELECT : A134/OBJ/L2600BJ 

$: EXECUTE: DUMP" 

$:LIMITS:20,20K, ,10K 

$:DATA:I*R 

//DATACRD1 

//2NDDATA12NDDATA22NDDATA32NDDATA4 

$:TAPE9:T1,X1D, ,MSTRTAPE, .AMFL240, ,DEN16 

$: FILE: SI, ,200R 

$:FILE:S2, ,200R 

$:SYS0UT:L1 ,ORG 

$ : ENDJOB 


4.   Summary 

The  CRUN  for  L260,  SIMIX  Plot  Summary,  accomplishes  the  following 
activities : 

a.  Reads  in  L240  Master  File  Tape. 

b.  Reads  in  two  parameter  cards  which  define  the  report  to  be 
produced. 

c.  Produces  a  SIMIX,  L260,  Plot  Summary  Report. 


5.  Form 

A134/CRUNL260 

6.  Response  to  CRUN  Queries 

a.   MSTRTAPE? 

Key  in  the  number  of  the  L240  Master  File  Tape  for  the 
inventory  unit.   This  is  a  four-  or  five-digit  number. 
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b.   ENTER  DATA  CARD1? 


Twelve  spaces  (columns)  are  available  for  data  entry  (see  the 
parameter  layout  below).   Place  an  X  in  the  appropriate 
column  (1  through  5)  for  the  log-to-lumber  conversion  rule 
used.   Place  an  X  in  the  appropriate  column  (6  through  8)  for 
the  harvest  code  used. 


PARAMETER  CARD  LAYOUT  FOR  L260 


DATA  CARD1 


COLUMN 

1  -  SCRIBNER  - 

2  -  SCRIBNER  - 

3  -  INTERNL  - 

4  -  INTERNTL  - 

5  -  CUBIC  - 

6  -  URA 

7  -  MFP1 

8  -  MFP2 


LEGEND 
FIXED  TOP  LOG  RULE 
VARIABLE  TOP  LOG  RULE 
FIXED  TOP  LOG  RULE 
VARIABLE  TOP  LOG  RULE 
TOP  LOG  RULE 
HARVEST  CODE 
HARVEST  CODE 
HARVEST  CODE 


Data  Card  #2 

Data  card  //2  has  48  spaces  (columns)  for  direct  entry  of 
identification  data.   The  remote  terminal  will  print  a  prompt 
message  4  times;  only  12  spaces  of  identification  can  be 
filled  on  each  of  the  four  line  entries  as  shown  below. 

1)   ENTER  DATA  CARD2? 


Key  in  the  first  12  characters  of  the  identification 
message.  Example:   (INV.-UN.-NO. ) . 

2)   ENTER  DATA  CARD2? 


Key  in  the  second  set  of  12  characters  of  the 
identification  message.   Example:   (13:  INTL. -FIX). 

3)   ENTER  DATA  CARD2? 


Key  in  the  third  set  of  12  characters  of  the 
identification  message.   Example:   ( . :MSTR#1 :MFP) . 
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4)   ENTER  DATA  CARD2? 


Key  in  the  fourth  set  of  12  characters  of  the  identifi- 
cation message.   Example:   (li:CC  +  PC:— 2). 
Code  (2)  must  be  keyed  in  column  #48  to  indicate  that 
this  is  control  card  #2. 

The  entire  identification  message  printed  on  the  L240 
Report  would  be: 

1NV.-UN.-N0.13:INTL  -FIX.  :MSTR#1  :MFP-1  :  CC  +  PC:— 2 


7.   Disposition? 

Respond  with  Carriage  Return  (CR)  to  have  the  L260  Report  printed 
on  the  main  printer. 

Respond  with  ,J  to  monitor  the  execution  of  the  job. 

*JMON  "SNUMB" 
Normal  Termination 
*JOUT  "SNUMB" 
Function:   DIRECT  ONLINE 

or 

EPRINT  06 


8.   Sample  Report. 

Please  see  pages  99  and  100  for  copies  of  two  pages  of  Report 

#  L260. 
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B.   SIMIX  Tree  Data  Report  and  Polynomial  Regression  of  Plot  Volume 
Over  Plot  Age:   L261  and  L262:   Combined  CRUN261-2 


1 .   Program  Execution 

a.   CRUN  L261 

Program  L261  extracts,  lists  and  summarizes  individual  tree  volumes 
and  related  data  on  a  per-plot,  per-acre,  and  per-expanded  stratum 
basis.   Field  plots,  with  various  acreage  expansion  weights,  are 
adjusted  to  a  common  acreage  base  for  each  decadal  age  class. 

Parameters  for  selection  of  data  from  certain  age  classes,  ground 
land-use  codes,  species,  and  diameter  classes  must  be  hard  coded  into 
the  program. 


b.   CRUN  L262 

Program  L262  is  a  polynomial  regression  subsystem.   Weighted  and 
adjusted  timber  stand  volume  per-acre,  or  actual  volume  increment  for 
the  past  five  years,  are  plotted  on  the  Y  axis,  and  timber  stand  age 
classes  are  plotted  on  the  X  axis.   First-  and  second-degree 
polynomial  regression  equations  are  computed  for  either  timber  yield 
or  timber  growth  as  requested. 

Program  L262  produces  a  report  that  shows  the  following: 

-  The  mean  (average)  of  the  X  and  Y  inputs. 

-  Correlation  coefficients. 

-  Analysis  of  variance. 

-  Regression  equation  coefficients. 

-  Table  of  residuals. 

-  Plot  (graph)  of  the  input  and  output  values. 

Program  L261  can  also  be  used  to  compute  actual  wood  growth  for  the 
past  decade  by  changing  a  request  input.   Please  refer  to  Data  Card  #1 
of  Parameter  Card  #2.   Actual  tree  growth  is  computed  from  increment 
borings  of  the  tree  trunk,  total  tree  height,  tree  diameter,  form 
class,  bark  thickness,  and  site  quality.   Individual  tree  growth  is 
also  weighted  by  tree  density,  acreage  expansion  factors  and  timber 
stand  age  classes. 
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c.   Job  Control  Language  for  L261-262 

*REMC 

*OLD  A185/JCL/L261-262,R 

*LIST 


#//N,J 

$:IDENT:185,  MOREDOCK 

$: OPTION: CBL7 4 

$: SELECT : A134/OBJ/L2610BJ 

$: EXECUTE: DUMP 

$:LIMITS:20,22K, ,20K 

$:DATA:I*R 

#DATACRDiDATACRD2DATACRD3 

//2NDDATA1 2NDDATA22NDDATA3 

//3RDDATA13RDDATA23RDDATA33RDDATA4 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 


TAPE9:T2,X1D, .MSTRTAPE, ,AMFL240, ,DEN16 

FILE:S1, ,75R 

FILE:S2, ,75R 

FILE:D1, ,F1S 

FILE:D2, ,F2S 

SYSOUT:Pl,ORG 

OPTION: FORTRAN 

SELECT: A134/OBJ/L2620BJ 

EXECUTE: DUMP 

LIMITS:20,55K, ,12K 

FILE:01,X5S 

FILE:07,F1R 

FILE:05,F2R 

SYSOUT:06,ORG 

ENDJOB 


d.   CRUN  Listing  for  L261-2 

*LIST  A134/CRUN  2612 

##; (MSTRTAPE?) 

OLD  A185/JCL/L261-262,R 

SYST 

EDIT 

RS:/DATACRD1/ 

$*$USER=ENTER  DATA  CARD1  FROM  PI? 

$*$NULL 

RS:/DATACRD2/ 

$*$USER=ENTER  DATA  CARD2  FROM  PI? 

$*$NULL 

RS:/DATACRD3/ 

$*$USER=ENTER  DATA  CARD3  FROM  PI? 

$*$NULL 


102 


RS:/2NDDATA1/ 

$*$USER=ENTER  DATA  CARD1  FROM  P2? 

$*$NULL 

RS:/2NDDATA2/ 

$*$USER=ENTER  DATA  CARD2  FROM  P2? 

$*$NULL 

RS:/2NDDATA3/ 

$*$USER=ENTER  DATA  CARD3  FROM  P2 ? 

$*$NULL 

RS:/3RDDATA1/ 

$*$USER=ENTER  DATA  CARD1  FROM  P3? 

$*$NULL 

RS:/3RDDATA2/ 

$*$USER=ENTER  DATA  CARD2  FROM  P3? 

$*$NULL 

RS:/3RDDATA3/ 

$*$USER=ENTER  DATA  CARD3  FROM  P3? 

$*$NULL 

RS:/3RDDATA4/ 

$*$USER=ENTER  DATA  CARD4  FROM  P3? 

$*$NULL 

RS:/MSTRTAPE/;*:/#l/ 

B 

RS:/,J/ 

$*$USER=DISPOSITION(CARRIAGE  RETURN  FOR  ONLINE  ELSE  ENTER  ,J)? 

$*$NULL 

DONE 

LIST 


REMC 
COUT 
RUN 
COUT 


*BYE 


103 


2 .   Summary 

The  CRUN2612  calls  the  combined  JCL  for  L261  (  /JCL/L261-262)  and 
produces  the  Tree  Summary  Report  and  the  Poly/Regression. 

a.  L261: 

1)  Input  =  L240  Master  File 

2)  Input  =  Parameter  Card  through  CRUN 

3)  Output  =  L261  report  (SIMIX-Tree  Summary) 

4)  Output  =  Temporary  files  (Dl  and  D2) 

b.  L262: 

1)  Input   =  Temporary  files  (Dl  and  D2)  from  L261 

2)  Output  =  L262  report  (SIMIX-Poly/Regression) 

Both  first-  and  second-degree  equations  are  produced  by  L262. 


3.  Form 

A134/CRUN2612 

4.  User  Response  to  CRUN  Queries 

a.  MSTRTAPE? 

Punch  in  the  number  of  the  L240XX  Versional  Master  Tape. 

Parameter  Card  #1 

Parameter  Card  #1  contains  spaces  for  36  characters.   This  data  is 
entered  on  three  data  cards.   Prepare  an  identification  message  for 
the  report  to  be  printed  by  the  computer.   The  identity  message  cannot 
be  more  than  36  characters  long.   For  example:   Parameter  Card  fl  = 
(Missoula  01,  MFP//2,  CC  +  PC-0,  PC-1,  PC-2,  #11148)  =  48  character 
Twelve  characters  must  be  dropped. 

b.  ENTER  DATA  CARD1  FROM  PI? 

Key  in  the  first  set  of  12  characters. 

c.  ENTER  DATA  CARD2  FROM  PI? 


Key  in  the  second  set  of  12  characters  from  the 
Identification  Parameter  Card. 


104 


d.   ENTER  DATA  CARD3  FROM  PI? 


Key  in  the  third  set  of  12  characters  from  the  Identification 
Parameter  Card. 


Parameter  Card  #2 

Information  from  Parameter  Card  #2  will  be  entered  on  the 
following  three  data  cards.   Twelve  character  spaces  are 
available  on  each  of  these  three  cards. 


ENTER  DATA  CARD1  FROM  P2? 


e 


1 )   Enter  an  "x"  in  Columns  1  through  5  to  indicate  the 
volume  formula  being  used: 


Column  Volume  Code 

1  Scribner  Fixed  Top;  6.0"  +  DBH 

2  Scribner  Variable  Top;  9.0"  +  DBH 

3  International  1/8"  Fixed  Top;  6.0"  +  DBH 

4  International  1/8"  Variable  Top;  9.0"  + 

DBH 

5  Cubic  5.0"  +  DBH;  4.0"  +  DBH 


2)   Enter  an  X  in  either  Column  6  or  Column  7: 

Column  Output  Tables 

6  Tree  volumes 

7  Past  5  years  of  tree  growth 


3)   Enter  the  word  "ASGAGE"  in  Columns  8  through  13  if  the 
data  is  to  be  plotted  according  to  the  "management  age" 
assigned  to  the  plot  data.   Note  that  you  cannot  key  in 
the  last  letter  "E"  (Column  13)  on  Card  1.   Hit  Carriage 
Return  (CR)  when  the  first  12  characters  have  been  key 
typed. 


105 


f.  ENTER  DATA  CARD2  FROM  P2? 

(Parameter  Card  //2,  Columns  13-24  incl.) 

Key  in  the  letter  "E"  in  Column  13.   Key  in  the  beginning 
position  and  the  ending  position  of  PLOT  AGE  (as  identified 
on  the  L240  Master  File)  in  Columns  14  through  19  of 
Parameter  Card  #2.   If  assigned  plot  age  is  to  be  used,  it  is 
found  in  position  482,  483,  and  484  of  the  Master  rile.   The 
number  482,  therefore,  is  keyed  in  positions  2,  3,  and  4  of 
DATA  CARD2,  Parameter  Card  #2.   Enter  the  number  484  in 
spaces  5,  6,  and  7  of  DATA  CARD2. 

g.  ENTER  DATA  CARD3  FROM  P2? 
(Parameter  Card  #2,  Columns  2  5-36) 

Key  in  a  "1"  in  Column  36  of  Parameter  Card  #2;  this  is 
Column  12  of  DATA  CARD3. 

Parameter  Card  //3 

Data  for  Parameter  Card  #3  is  entered  on  four  data  cards. 
Sections  h.  through  k.  explain  the  method  for  selecting  a 
single  harvest  code  from  the  Master  File  Record.   Follow  the 
explanations  in  Sections  1.  through  n.  for  selecting  combinations 
of  several  harvest  codes. 

h.   To  develop  a  regression  of  only  one  harvest  class: 

ENTER  DATA  CARD1  FROM  P3? 

(Parameter  Card  #3.   Columns  1-12  incl.) 

1)  Write  in  the  allowable  cut  alternative  to  be  used  in  this 
report,  i.e.,  URA,  MFP-1  or  MFP-2,  in  Columns  1  through  6 
inclusive. 

2)  Find  the  Master  File  position  numbers  from  the  Data  File 
Layout  Sheet  for  the  URA  or  MFP  run  selected.    titer  the 

beginning  position  number  in  Columns  7  through  9.   Enter 

the  ending  position  number  in  Columns  10  through  \2. 

Refer  to  positions  560  through  566  on  the  Master  File 
Layout  Record. 

ENTER  DATA  CARD2  FROM  P3? 

(Parameter  Card  #3:   Columns  13-24  incl.) 
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1)   The  selecting  criteria  for  harvest  codes  is  to  be  entered 
in  Column  13,  which  is  Space  1  of  this  data  card.   Use 
the  symbol  "="  (equals)  in  selecting  one  of  the  following 
harvest  systems  to  be  compiled. 

Harvest  Codes 


=  Clearcut  Management  Regime 

=  Partial  Cutting  Regime;  Initial  Cut 

(Well-Stocked  Stands) 
=  Partial  Cutting  Regime;  Intermediate 

Cut  (Medium-Stocked  Stands) 
=  Partial  Cutting  Regime;  Final  Cut 

(Poorly  Stocked  Stands) 
=  Excluded  Acreage  (Not  in  this  Unit) 
=  Multiple  use  restricted  (100  percent 
restricted) 

2)   If  only  one  harvest  class  is  to  be  selected,  i.e., 

clearcut,  PC-0,  PC-1,  or  PC-2 ,  place  the  harvest  code  in 
Column  2  of  this  DATA  CARD2,  which  is  Column  14  of 
Parameter  Card  #3. 

j.   ENTER  DATA  CARD3  FROM  P3? 


Code 
Code 

1  = 

2  -- 

=  CC 
=  PC-0 

Code 

3  = 

=  PC-1 

Code 

4  = 

=  PC-2 

Code 
Code 

5 
6 

There  is  no  entry  for  CARD3. 
Enter  a  null  response. 

k.   ENTER  DATA  CARD4  FROM  P3? 


1)  Key  in  a  "2"  in  position  48  of  Parameter  Card  #3;  this  is 
Column  12  of  DATA  CARD4.   Punch  the  Carriage  Return  key. 
The  word  "Disposition"  will  appear. 

2)  Refer  to  Section  p.  for  disposition  of  the  report  just 
created. 

To  combine  two  or  more  harvest  codes  in  the  acreage  and 
volume  summaries  and  in  the  regression  equation,  follow  Steps 
1.  through  n.  inclusive. 
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1.   ENTER  DATA  CARD1  FROM  P3? 


Two  or  more  harvest  systems,  such  as  PC-0,  PC-1 ,  and  PC-2 
(Codes  2  through  4),  may  be  combined  under  one  management 
regime  by  using  the  following  sample  procedure;  use 
boundaries  of  >1  (greater  than  one)  and  <5  (less  than  five). 

1)  Select  the  management  regime,  i.e.,  URA,  KFP  #1 
desired,  and  key  the  alternative  in  Columns  1  through  6 
of  DATA  CARD1. 

2)  Enter  the  beginning  position  location  numbers  of  the 
harvest  code  in  Columns  7  through  9  of  DATA  CARD1.   Refer 
to  the  Master  File  Layout  for  the  position  number. 

3)  Enter  the  ending  position  location  number  of  the  harvest 
code  in  Columns  10  through  12  of  DATA  CARD1.   Punch  the 
Carriage  Return  (CR)  key. 

m.   ENTER  DATA  CARD2  FROM  P3? 


1)  Enter  the  code  ">"  (greater  than)  in  Column  1  of  DATA 
CARD2.   This  is  Column  13  of  Parameter  Card 

2)  Enter  the  code  "1"  in  Column  14  of  DATA  CARD2.   Punch  the 
Carriage  Return  key. 

n.   ENTER  DATA  CARD3  P3? 

(Parameter  Card  column  25  through  36  incl.) 

1)  Enter  the  beginning  position  location  number  of  the 
harvest  code,  as  shown  on  the  Master  File  Layout  Report, 
in  Columns  4  through  6  of  DATA  CARD3.   These  are  Columns 
28  through  30  of  Parameter  Card  #3. 

2)  Enter  the  ending  position  location  numbers  of  the  harvest 
code  in  Columns  7  through  9  of  DATA  CARD3.   These  are 
Columns  31  through  33  of  Parameter  Card  "3. 

3)  Enter  the  code  "<"  (less  than)  in  Column  10  of  DA 
CARD3. 

4)  Enter  the  code  "5"  in  Column  11  of  DATA  CARD3.   Punch  the 
Carriage  Return  key  to  enter  the  input  data. 

o.   ENTER  DATA  CARD4  FROM  P3? 


1)  Key  in  a  "2"  in  Column  12  of  DATA  CARD4.   This  is  Column 
48  of  Parameter  Card  #3. 

2)  Punch  the  Carriage  Return  key.   The  word  "Disposition" 
will  appear. 
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DISPOSITION? 

1)  Punch  the  Carriage  Return  key  for  direct  on-line  printing 
of  the  report  at  the  main  printer. 

2)  The  job  should  go  to  normal  termination  and  the  report 
will  be  printed  by  the  mainline  printer  without  any 
further  action  by  the  Terminal  User. 

3)  Key  in  ",J"  to  monitor  the  progress  of  the  job  execution: 

*JMON  "SNUMB" 
Normal  Termination 
*JOUT  "SNUMB" 
Function:   LIST 

DIRECT  ONL 

EPRINT  06 


e 


MASTER  FILE  LAYOUT  POSITIONS 

NAME 
Assigned  Age  xxx 
URA  Harvest  Code 
MFP  #1  Harvest  Codes 
MFP  #1  Multiple-Use  Code 
MFP  #1  M.U.  Restriction  % 
MFP  #2  Harvest  Code 
MFP  #2  Multiple-Use  Code 
MFP  #2  M.U.  Restriction  % 
Scribner  Fixed  T.  Volume 
Scribner  Variable  Top  Volume 
International  1/8  Fixed  Top 
International  1/8  Variable  Top 

Volume 
Cubic  Volume:  Four-Inch  Top 
Growth 


POSITION  LOCATION 
482  -  484  incl. 

560  -  560 

561  -  561 

562  -  562 

563  -  563 

564  -  564 

565  -  565 

566  -  566 

567  -  572 
573  -  578 
579  -  584 
585  -  590 

591  -  596 

597  -  626 


r .   Individual  Tree  Growth 

Growth  of  individual  trees  is  recorded  on  the  Master  File  as 
gross  growth  for  the  past  five-year  period.   Midpoint 
diameter  and  reduced  tree  height  are  used  to  reconstruct  tree 
size  as  of  the  middle  of  the  ten-year  incremental  period  used 
in  the  inventory.   Tree  cull  factor  percentages  are  used  to 
reduce  gross  growth  to  net  growth. 

s.   Sample  Report. 

Please  see  page  110  for  a  sample  page  of  an  L261  report. 
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C.   Curve  Harmonizer  Program:   L263 

1.  Execution  of  CRUN  L263 

The  curve  harmonizer  program  is  designed  to  take  the  three  volume 
equations  developed  separately  for  poorly-stocked,  medium-stocked,  and 
well-stocked  field  plots  and  harmonize  them  in  relation  to  a  preset 
standard  curve,  generally  the  combined  equation  developed  from  all 
plots  classified  for  harvest  under  the  shelterwood  harvest  system. 
Each  curve  and  portion  of  the  curve  is  weighted  proportionately  in 
relation  to  their  acreage  and  the  existing  volume. 

The  program  can  also  be  used  to  develop  intermediate  average  yield 
curves  from  an  irregular  population  of  (for  example),  high,  low,  and 
medium  site  quality  acreages  of  different  species. 

2.  Compiling  Program  Input  Data 

Program  L263  requires  a  specialized  input  format  as  shown  by  Figures  1 
through  3,  p.  113  -  115.   The  PC-All  and  at  least  one  of  the  other 
equations,  PC-0,  PC-1 ,  or  PC-2 ,  must  be  completed.   Each  age-class 
line  must  be  completed,  showing  the  number  of  plots  and  actual  weight- 
ed volumes  for  those  plots,  or  else  the  line  must  be  zero-filled. 


The  program  report  develops  a  revised,  adjusted  equation  and  a 
percentage  figure  for  each  of  the  comparison  curves.   For  example, 
Revised  Curve  No.  1  (PC-0)  may  be  shown  as  being  203  percent  of 
the  Master  Curve  (PC-ALL)  and  its  value  would  be  printed  as: 
A  +  B(X)  -  CX2,  see  Table  1  (sample  printout),  p.  116. 


3.  Data  Input 

Keypunch  and  store  the  input  data  on  a  Key  Entry  BCD  Tape, 

4.  CRUN  Listing  for  L263 

*LIST  CRUN263 

##,(  DATAFILE?) 

OLD  A185/JCL/L263JCL,R 

SYST 

EDIT 

RS:/"KEYN0"/:*:/#l/ 

B 

RS:/,J/ 

$*$USER=DISPOSITION(CARRIAGE  RETURN  FOR  ONLINE, 

ELSE  ENTER  ,J  )? 
$*$NULL 
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DONE 

LIST 

REMC 

COUT 

RUN 

COUT 


*LIST 

##N,J 

$:IDENT:A185,HORAK 

$: OPTION: FORTRAN 

$: SELECT : A134/OBJ/L2630BJ 

$: EXECUTE 

$:LIMITS:20,35K, ,20K 

$:PRMFL:05,R,S,A134/DATA/KEYNO 

$:SYSOUT:06,ORG 

$:ENDJOB 


5.   Summary 

The  CRUN  for  L263  SIMIX,  Curve  Harmonizer,  accomplishes  the  following 
activities : 

a.  Reads  a  key-tape  as  the  only  input. 

b.  Produces  a  SIMIX  Curve  Harmonizer  Report. 


6.  Form 

A134/CRUNL263 

7.  Responses  to  CRUN  Queries 

a.  DATAFILE? 

Enter  the  key-tape  number  (example:   K135) 

b.  DISPOSITION? 

Punch  Carriage  Return  key  for  report  to  be  printed  on  the 
mainline  printer.   Key  in  '  ,J"  to  monitor  the  job  execution. 

*JMON  "SNUMB" 

Normal  Termination 

*JOUT  "SNUMB" 

Function?   LIST 

DIRECT  ONLINE  =  Mainline  printer 
EPRINT  XX  =  Remote  terminal  printer 
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Figure  1.    CURVE  HARMONIZER  PROGRAM: 
L263  Input  Format. 
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'Zero-fill  each  line  that  does  not  contain  sample  field  data. 
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Figure  2.       CURVE  HARMONIZER  INPUT  FORMAT 


I        2        5        «       5   I    •       T 


]*]*    |  10  |  II  |l2|n|l4|l»|lt|l7[lljl»|ao|2l  |22|2i|24|25|2t|;>|2»|2»[30]»l7i2|M[»«[»|>*|»T|3t)»»J40|«l|«?^        .     • 


Equation  #2:  PC-1 
A 

ID 


B 


I 


Field  Plot  Data:  PC-1 


NO. 
AGE   PLOTS 


ACTUAL 
VOLUMES 


0 

L 

0 

' 

o 

& 

0 

— 

— 

— 

0 

/ 
/ 

? 

0 

/ 

O 
O 

o 

/ 

2 

o 

/ 

/ 

/ 

3 

0 

o 
o 
o 

/ 

6> 

— 

/ 

7 

o 

/ 
/ 

6 
7 

o 

0 

2 

o 

o 

2 

/ 

D 

2 

2 

0 

X 

B 

o 

SL 

4 

o 

2. 

a. 

5 

q 

— 

2 

7 

o 

2 

3 

a 

2 

? 

0 

3 

0 

o 

— 

a 

/ 

0\ 

! 

114 


• 


Figure  3.        CURVE  HARMONIZER  INPUT  FORMAT. 
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D.   Multiple-Use  Restrictions:   L248 

1.  Execution  of  CRUNL248 

Program  L248  uses  multiple-use  restriction  codes  and  percentage  reduc- 
tion in  timber  yield  anticipated  upon  application  of  multiple-use 
concepts  to  the  forest  simulation  modeling  programs. 

2.  CRUN  for  L248 

*LIST  CRUNL248 
##NULL;(KEYTAPE?,240TAPE?,220TAPE?) 

SYST 

OLD  A185/JCL/L248JCL,R 

EDIT 

RS:/"KEYTAPE"/:/#l/ 

RS:/"240TAPE'7:/#2/ 

RS:/"220TAPE"/:/#3/ 

B 

RS :/"$"/ 

$*$USER=  IF  220  TAPE  PRESENT  ENTER  $  ELSE  ENTER  /? 

$*$NULL 

B 

RS:/  ,J/ 

$*$USER=  DISPOSITION  (FOR  JOUT  ENTER  ,J 

ELSE  HIT  CARRIAGE  RETURN)? 
*NULL 
DONE 
COUT 
RUN 
COUT 

3.  Job  Control  Language 

*0LD  A185/JCL/L248JCL,R 
*LIST 

////A, J   N 

$ : I DENT : Al 85 , MOREDOCK 

$:CONVER 

$:TAPE7:IN,X4D, ,KEYTAPE, , , ,DEN5 

$ : INPUT : LODENS , NLABEL , MBCD , NSER, FIXLNG/ 1 4 

$:FILE:0T,X4S 

$:OPTION:CBL74 

$: SELECT : A134/OBJ/L2480BJ 

$ : EXECUTE : DUMP 

$:LIMITS:30,32K, ,45K 

$:FILE:R1,X4R 
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$:TAPE9:T2,X2D, ,"240TAPE", ,AMFL240, ,,DEN16 

"$":TAPE9:T1,X1D, , "220TAPE", ,AMFL220, ,DEN16 

$:FILE:Di,SiR,100R 

$:FILE:D2,S2R,100R 

$:FILE:D3,S3R,100R 

$:SYS0UT:L1,0RG 

$:ENDJOB 


4.   Summary 

The  CRUN  for  L248,  Multiple-Use  Factors,  accomplishes  the  following 
activities : 

a.  Reads  in  the  L240XX  Master  File  Tape. 

b.  Reads  in  a  key-tape  which  specifies  the  type  of  output 
desired. 

c.  Produces  a  Multiple-Use  Factor  Report  which  shows  the  amount 
of  reduction  to  apply  to  the  allowable  cut  because  of 
multiple-use  restrictions  applied  to  Timber  Harvesting  on 
productive  forest  acreage. 


5.  Form 

A134/CRUNL248 

6.  Responses  to  CRUN  Queries 

a.  KEYTAPE? 

Punch  in  the  number  of  the  key-tape  which  identifies  the  MFP 
alternative. 

b.  L240TAPE? 

Enter  the  L240  Master  File  Tape  number. 

c.  L220TAPE? 

Enter  the  L220  Master  File  Tape  number  (L220  is  the  Field 
Location  Edit  Update  program)  if  assigned  age,  harvest  codes, 
and/or  multiple-use  restriction  codes  are  updated.   Otherwise 
enter  ••99999.,, 
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d.  IF  L220  TAPE  IS  PRESENT  ENTER  $,  ELSE  ENTER  *? 
Enter  a  $  or  *  as  requested. 

e.  DISPOSITION? 

Punch  the  Carriage  Return  key  for  the  report  to  be  printed  on 
the  mainline  printer. 

Punch  ,J  to  monitor  the  job  execution. 

*JMON  "SNUMB" 
Normal  Termination 
*JOUT  "SNUMB" 
Function?   List 

DIRECT  ONLINE 

or 

EPRINT  06 


7.   Other 


The  L240  Master  File  contains  space  for  two  MFP  multiple-use 
restriction  codes.   Refer  to  the  following  page  for  use  of 
the  harvest  system  codes,  the  multiple-use  codes,  and  the 
percentage  reduction  codes. 
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Table  1.   Multiple-Use  Restriction  Codes. 


ADP 
Code 

IX 

Restriction 
Title 

Wildlife 
Habitat 

Streamside 

Watershed 

Scenic 

Recreation 

Topographic 

Right/Way 

Research 
(Natural) 

No.  of 
Plots 

Restricted 
Acreage 

%  Reduction  Upon 
Timber  Harvest 

2X 

3X 

4X 

5X 

6X 

7X 

8X 

9X       Other 


X  =  Code  for  percentage  of  total  yield  (volume)  reduction. 

When  X  =  0,  yield  reduction  is  100%.   When  X  =  1,  vield  reduction  is 
10%. 
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X.   Forest  Simulation  Modeling:   Programs  L264  and  L265 

A  sophisticated,  computerized  forest  simulation  model  is  used  to 
predict  growth,  yield,  and  the  potential  harvest  levels  attainable 
from  a  forest  property  for  a  period  of  up  to  40  decades.   The  model 
used  by  the  BLM  is  named  "SIMIX,"  which  is  an  acronym  for  Simulating 
Intensive  Management  for  Mixed  Stands.   It  is  an  updated,  revised 
version  of  Simulating  Intensively  Managed  Allowable  Cut  (SIMAC),  which 
could  only  handle  a  clearcut  management  regime.   The  conceptual  basis 
and  early  COBOL  version  of  SIMAC  were  developed  by  Karl  Bergsvik  and 
Don  DeBerard  of  the  BLM. 

SIMIX  calculates  a  potential  harvest  cutting  level  associated  with  a 
stated  forest  management  plan  for  even-aged  timber  stands.   It  can 
maximize  an  even  flow  of  cut  for  a  specified  management  regime,  or  a 
series  of  individual  variable  cuts  for  as  many  as  the  first  10 
decades,  followed  by  even-flow  cuts.   Calculations  are  made  for  each 
decade  for  a  maximum  of  40  decades.   Acreage  and  volume  in  each  age 
class  that  will  be  treated  in  the  decade  are  computed  using  criteria 
and  d£.ta  specified  in  the  input. 

SIMIX  computes  a  harvest  rate  based  on  present  timber  inventory  data 
and  the  projected  growth  of  both  present  stands  and  future  regenerated 
stands  resulting  from  some  or  all  of  the  following  management 
practices:   nontreatment  precommercial  thinning  only,  precommercial 
and  commercial  thinning,  commercial  thinning  only,  mortality-salvage, 
forest  genetics  and  final  harvest  volume.   Other  treatments,  such  as 
fertilization,  can  be  included  along  with  one  or  more  of  the 
treatments  mentioned  above.   The  results  of  these  treatments  are 
reflected  in  the  slope  of  future  yield  curves. 

SIMIX  must  be  told  what  treatments  to  apply,  when,  and  on  how  many 
acres.   No  rotation  age  is  set,  although  a  minimum  harvest  age  is 
specified.   Two  forest  management  regimes,  a  clearcut  harvest  system, 
and  a  two-  or  three-stage  shelterwood  removal  system  can  be  combined 
into  one  sustained-yield  unit  forest  property.   Up  to  75  individual 
growth  and  yield  equations  must  be  developed  separately  and  fed  into 
the  program  to  reflect  the  simulated  results  of  a  single  management 
proposal  (computer  run).   A  summary  of  major  options  allowed  in  the 
program  is  as  follows: 
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Figure  1.   SIMIX  OPTIONS 


VOLUME  INDICATOR 


MANAGEMENT  OPTION 


SYSTEM  OF  MANAGEMENT  = 


1  THINNING  AND  MORTALITY  INCLUDED 

2  THINNING  AND  MORTALITY  EXCLUDED 

3  THINNING  EXCLUDED,  MORTALITY  INCLUDED 

4  THINNING  INCLUDED,  MORTALITY  EXCLUDED 

1  CLEAR  CUT  ONLY 

2  PARTIAL  CUT  ONLY,  3-STAGE,  10-YEAR  CYCLE 

3  PARTIAL  CUT  ONLY,  2-STAGE,  10-YEAR  CYCLE 

4  PARTIAL  CUT  ONLY,  2-STAGE,  20-YEAR  CYCLE 

5  CLEAR  CUT  AND  PARTIAL  CUT  (  2  ABOVE  ) 

6  CLEAR  CUT  AND  PARTIAL  CUT  (  3  ABOVE  ) 

7  CLEAR  CUT  AND  PARTIAL  CUT  (  4  ABOVE  ) 

F  FIXED,  EVEN  FLOW  THROUGH  PROJECTION  PERIOD 

M  MODULATED,  ACCELERATED  HARVEST  OF  OLD 
GROWTH 


REGENERATION  LAG 


FROM  -10  to  +15  YEARS 


MINIMUM  HARVEST  AGE 
MAXIMUM  THINNING  AGE 
INITIAL  HARVEST 


ANY  AGE 

NINETY  (90)  YEARS 

SPECIFY:   WELL-STOCKED  OR  POORLY  STOCKED 
STANDS 


NOTE  -  VOLUME  AND  GROWTH  REGRESSIONS  FOR  PARTIAL  CUT  MANAGE" 

OPTIONS 

2+5  PCI  =  KONE  *  PCO,  PC2  =  KTWO  *  PCO 
3+6  PCI  =  PC3  ,  PC2  =  KONE  *  PCO 
4+7   PCI  =  KONE  *  PCO,  PC2  =  PCI 


The  forest  simulation  modeling  programs  have  certain  built-in  controls 
for  their  use.   Please  refer  to  Section  G,  p.  129  for  obtaining 
permission  to  use  these  programs. 


122 


e 


A.   Preparation  Phase 

Two  separate  systems  are  available  for  computing  a  potential  harvest 
level  with  the  SIMIX  modeling  system.   The  quick  access  file  system 
using  A134/RUNL264  is  set  up  for  time-sharing  remote  terminal  use. 
The  other  system,  CRUNL264  (an  Object  Program  Routine),  is  set  up  for 
DSC  programmer  use.   The  DSC  system  allows  experimentation  with 
program  modifications  without  disrupting  normal  program  operation. 


1 .   Input  Information 

Up  to  23  pages  of  input  forms  are  filled  out  and  submitted  to  data 
entry  for  keypunching.   The  key-tape  produced  by  data  entry  is  then 
transferred  onto  a  user's  data  file  storage  space.   Remote  terminal 
users  may  enter  the  input  data  directly  onto  their  file  space  if 
desired. 

The  SIMIX  input  file  can  be  examined  under  the  edit  subsystem  and 
corrections,  updates,  or  changes  made  as  desired. 

It  is  also  advisable  to  store  the  original  modeling  inputs  in  one  file 
space  and  to  use  a  second  file  space  for  edits  and  updates.   This 
keeps  the  original  input  safe  from  losses  due  to  transmission 
failures,  errors  in  manipulating  the  file,  and  incorrect  input. 


2.   Program  Operation 

Keypunched  data  is  fed  into  program  L264.   This  program  edits  and 
reformats  the  input  data  and  produces  a  report  (printout).   Program 
L264  also  analyzes  the  growth  and  yield  equations.   A  table  is  printed 
showing  the  x  and  y   intercepts  and  the  peaks  of  each  curve.   A 
temporary  file  is  created  that  is  then  fed  into  Program  L265,  the 
allowable  cut  modeling  program  which  produces  the  allowable  cut  report 
from  the  forest  model  inputs. 


B.   Loading  and  Editing  Phase 

1 .   Loading  File  Space 

a.   /L0ADL264 

This  program  is  used  to  load  a  key-tape  containing  SIMIX  Input 
Data  onto  PRMFL  L264  (permanent  disc  file  space).   The  user 
must  have  the  key-tape  number. 

The  user  may  use  the  LOADDATA  Command  under  the  Time  Sharing 
System  and  store  SIMIX  input  data  under  any  catalog  or  file 
string. 
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b.   CRUN  Listing  for  L264-L265 

*List/LOADL264 

////;    (KEYTAPENO?) 

OLD  A185/LOADL264,R 

SYST 

EDIT 

RS:/"KEYNO"/;*:/#l/ 

B 

RS:/,J/ 

$*$USER=DISPOSITION(CARRIAGE  RETURN  FOR  ONLINE, 

ELSE  ENTER  ,J)? 
$*$NULL 
DONE 
REMC 
COUT 
RUN 
COUT 

The  original  SIMIX  input  data  will  reside  in  file  space  Data/L264 
until  it  is  overwritten  or  released.   Use  file  space  /Data/EditL264 
for  storage  of  edited  or  updated  SIMIX  input  parameters. 


2.   Editing  &  Updating  SIMIX  Input  File 

To  review  the  data  stored  in  file  space  L264  and  to  make  edit  changes, 
use  the  Convert  System  as  follows: 

*C0NVER_/DATA/L264_ 

The  Convert  Subsystem  converts  BCD  to  ASCII  Language.  An  asterisk  will 
appear  upon  completion  of  conversion.  Enter  the  following  commands  in 
response  to  the  asterisk: 

*EDIT  VERI_  STRI  CASE 

You  have  just  given  the  machine  instructions  to: 

"Call  in  the  Edit  Subsystem,  verify  all  changes,  use  the  string 
instead  of  line  mode,  and  do  not  differentiate  between  upper-  and 
lower-case  letters." 

Make  edit  updates  as  desired. 

All  edit  changes  are  now  complete.   Save  the  edited  data  and  place  it 
in  a  file  named  EDITL264  by  keying  in  the  following  command: 

-RESAVE  /DATA/EDITL264 
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To  reconvert  from  ASCII  to  BCD  Language: 

*CONVER  /DATA/L264=/DATA/EDITL264:BCD,C(1-80),V 

or 

*CONVER  *=/DATA/EDITL264 : BCD , C( 1-80 ) 

At  this  point,  the  SIMIX  input  data  has  been  reviewed,  all  apparent 
errors  have  been  removed,  and  the  correct  information  is  stored  in 
/EDITL264  file  space  in  BCD  language.   User  is  now  ready  to  run  the 
simulation  modeling  program. 

C.   Execution  of  SIMIX 

Use  the  quick  access  version.   When  the  asterisk  appears,  key  in: 

*A134/RUNL264 
The  terminal  will  then  print  a  list  of  queries. 

1.  Response  to  A134/RUNL264  Queries 
KEYTAPENO? 

Provide  the  name  of  the  input  file  (EDITL264). 

DISPOSITION? 

Hit  the  Carriage  Return  key  for  printing  the  outputs  on  the  main- 
line printer.   Punch  ",J"  to  monitor  the  job  execution.   To 
monitor  the  job  before  requesting  it  to  be  printed,  enter  ",J" 
only,  and  then  the  following: 

*JM0N  (SNUMB) 

Normal  Termination  or  Abnormal  Termination  will  print. 
*J0UT  (SNUMB)  upon  normal  termination. 

Function?   DIRE  ONL  for  directing  the  printout  to  the  mainline 

printer, 

or 

EPRINT  06  for  printing  at  the  remote  terminal. 

2.  Abnormal  Termination: 

If  an  abnormal  termination  occurs,  review  your  input  data  for 
conflicts  column  by  column  and  line  by  line  and  resubmit  the  run.   If 
the  abort  message  is  repeated,  contact  your  Programmer  Specialist  for 
Dump  and  Debug  assistance. 
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3.   CRUN  Listing  for  L264-L265 

*List  A134/RUNL264 

////;  (FILE  NAME?) 

OLD  A185/JCL/RUNL264,R 

SYST 

EDIT 

RS:/DATANAME/;*:///l/ 

B 

RS:/,J/ 

$*$USER=DISPOSITION( CARRIAGE    RETURN    FOR    ONLINE    ELSE    ENTER    ,J)? 

$*$NULL 

DONE 

REMC 

COUT 

RUN 

COUT 


4.   Job  Control  Language 

*LIST  A185/JCL/L264JCL 

0010##N,J 

0020$ : IDENT: A185 , MORE DOCK 

0030$ : CONVER: NSPIN , DUMP 

0040$: LIMITS: 20, 10K 

0050$:TAPE7: IN,MIDD, ,"KEYNO" , .KKYTAPE, ,DEN5 

0060$:INPUT:LODENS,NLABEL,MBCD,NSER,FIXLNG/14 

0070$:FILE:OT,M2S 

0100$: OPTION: FORTRAN 

0110$: SELECT: A134/OBJ/L2640BJ 

0120$: EXECUTE: DUMP 

0130$:LIMITS:20,30K, , 10K 

0140$:FILE:05,M2R 

0150$:FILE:07,M3S 

0160$ :OPTION: FORTRAN 

0162$: SELECT: A134/OBJ/L2650BJ 

0164$: EXECUTE: DUMP 

0170$:LIMITS:20,50K, ,50K 

0180$:FILE:07,M3R 

0200$:ENDJOB 

*REMC 
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5 .   Summary 

The  A134/RUNL264  program  calls  the  combined  JCL  for  L264  and  L265  and 
produces  the  following  two  reports: 

a.  L264: 

(1)  Input  =  Key-tape  or  data  file. 

(2)  Output  =  L264  Report  (approximately  32  pages)  and 

temporary  FILE07. 

b.  L265: 

(1)  Input  =  Temporary  FILE07  from  L264. 

(2)  Output  =  L265  Report  (Allowable  Cut  Model),  up  to  500 

pages. 


D.   The  CRUN  SIMIX  System 

The  second  of  the  two  methods  computes  a  potential  forest  harvest 
level,  or  allowable  cut,  by  using  the  SIMIX  Forest  Modeling  System  in 
the  CRUN  system. 

The  CRUNL264  computer  command  uses  the  Object  Program  System  and  is  a 
backup  for  the  A134/RUNL264  Time  Sharing  System. 


1.   CRUN  CRUNL264 

The  job  control  language  for  this  CRUN  will  only  accept  a  key  data 
tape.   This  key-tape  is  prepared  by  the  Keyentry  Operation  at  DSC,  and 
the  data  is  converted  directly  into  the  BCD  machine  language.   The 
remote  terminal  user  cannot  make  any  direct  corrections  or  changes  to 
this  key-tape.   The  user  can  review  the  key  entry  data  by  loading  it 
into  a  temporary  file  space  and  requesting  a  listing  of  the  data. 
Corrections  or  updates  must  be  submitted  to  the  Data  Control  Staff  at 
DSC,  and  a  corrected  key-tape  received  before  continuing. 


2.   Summary 

The  CRUNL264  calls  the  combined  listing  for  L264  and  L265 
( /JCL /L2 64 JCL)  and  produces  2  reports. 

a.    L264: 

(1)  Input  =  Key-tape  //  (771) 

(2)  Output  =  L264  Report  (Allowable  Cut  Input  Formatter)  and 

temporary  FILE07 
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b.    L265: 

(1)  Input  =  Temporary  FILE07  from  L264 

(2)  Output  =  L265  Report  (Allowable  Cut  Model) 

L265  Report  (Allowable  Cut  Input  Formatter) 


3.   CRUN  Listing  for  CRUNL264 

*#LIST  CRUNL264 

(CRUN  CRUNL264) 

##;(  KEYTAPENO?  ) 

OLD  A185/JCL/L264XX,R 

SYST 

EDIT 

RS:/"KEYNO"/;*:///l/ 

B 

RS:/,J/ 

$*$USER=DISPOSITION(CARRIAGE  RETURN  FOR  ONLINE  ELSE  ENTER  ,J)? 

$*$NULL 

DONE 

LIST 

REMC 

COUT 

RUN 

COUT 


4.  Form 

A134/CRUNL264 

5.  Responses  to  CRUN  Queries 

KEYTAPENO?   Provide  key-tape  number,  for  example  (K507) 

DISPOSITION?   Key  in  ",J"  to  monitor  the  execution;  other- 
hit  CR  to  direct  the  program  to  print  the  report  at  the 
Mainline  Printer. 

Monitoring:       After  the  program  goes  to  a  normal  termination, 

it  must  be  directed  to  either  a  remote  terminal 
or  the  Mainline  Printer  as  shown. 

*JOUT  "SNUMB" 

Function?        LIST  or 

DIRECT  ONLINE  or 

EPRINT  06  for  remote  terminal  printing. 
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E.   Harvest  Level  Alternatives 

A  12-page  typewritten  summary  report  is  prepared  by  the  Allowable  Cut 
Specialist  explaining  the  principal  details  and  results  of  the 
management  decisions  fed  into  each  simulation  modeling  run. 


F.   SIMIX  References 

It  is  beyond  the  scope  of  this  publication  to  explain  any  of  the 
details  of  the  SIMIX  modeling  system.   Please  refer  to:   USDA  Forest 
Service  General  Technical  Report;  PNW-1;  Users'  Manual  for  a  Computer 
Program  for  Simulating  Intensively  Managed  Allowable  Cut;  Robert 
Sassaman,  Ed  Holt,  and  Karl  Bergsvik.   A  detailed  users'  handbook  is 
planned  for  publication  in  FY  81  by  the  DSC. 


G.   Potential  SIMIX  Users 

Potential  SIMIX  users  in  the  PD  states  must  contact  DSC  foresters  or 
the  User  Branch  of  Data  Processing  and  obtain  a  custom-built  Job 
Control  Language  and  specific  "Read  Permission"  for  executing  the 
SIMIX  Program. 


H.   Sample  Report  (ADP  Printout) 

The  following  three  pages  have  been  extracted  from  a  bulky  printout  of 
a  potential  harvest  level  alternative  computed  in  cubic  feet  of 
merchantable  timber.   Page  130  shows  an  existing  portion  of  the  forest 
classified  for  harvest  under  a  three-stage  harvest  removal  system. 
Pages  131  and  132  show  this  portion  of  the  forest  during  the  10th 
decade. 
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XI.   INVESTMENT  ANALYSIS:   IVST:   Program  L270 

Forest  management  and  other  resource  management  proposals  must  be 
analyzed  and  pass  an  economic  feasibility  test  before  they  can  be 
considered  viable  proposals.   The  economic  feasibility  test  requires 
that  a  project  provide  at  least  the  minimum  rate  of  return  from 
capital  invested.   The  rate  of  return  for  timber  is  the  same  as  the 
current  Federal  Discount  Rate  applicable  to  water  and  land-related 
resources. 

The  Bureau's  IVST  computer  program  can  be  used  for  evaluating  resource 
investment  opportunities  under  three  criteria:   (1)  Present  Net  Worth, 
(2)  Benefit/Cost  Ratio,  and  (3)  Internal  Rate  of  Return  (under  varying 
percentage  rates  of  interest).   Also,  ADP  printout  data  can  be 
translated  into  graphic  form  for  comparison  purposes. 

The  internal  rate  of  return  computations  can  be  used  to  conduct  a 
cost-effectiveness  analysis;  the  objective  of  which  is  to  determine 
which  alternative  yields  the  greatest  effectiveness  for  any  given  cost 
or  to  show  which  alternative  yields  a  required  degree  of  effectiveness 
for  the  least  cost.   Projects  can  then  be  ranked  as  necessary,  and  the 
optimum  size  of  projects  can  be  determined.   Refer  to  BLM  Manual 
Section  9522,  Cost-Effectiveness  Analysis,  for  the  policies, 
procedures,  and  authority  for  conducting  cost-effectiveness  studies. 

This  chapter  is  designed  to  show  the  user  how  to  operate  the  IVST 
program  from  a  remote  terminal.   The  program  is  set  up  to  receive 
directions  to  find  and  use  input  data  that  the  user  has  previously 
stored  in  a  specific  file. 

An  overview  of  the  successful  operation  of  the  Investment  Analysis 
Program  is  as  follows: 

Design  your  investment  problem. 

Fill  out  pages  1  and  2  of  the  IVST  input  form. 

-  Store  the  input  data  in  a  specific  data  file. 

Call  in  the  IVST  computer  program  from  your  remote  terminal. 

-  Tell  the  program  the  name  and  location  of  your  input  data 
file. 

Execute  the  program  and  direct  it  to  print  your  report  at  the 
desired  location. 

-  Do  another  problem  or  sign  off. 

BLM  Technical  Notes  309  and  323,  "An  Economic  Analysis  Series  for 
Screening  Proposed  Timber  Management  Projects,"  show  several  sets  of 
completed  IVST  input  forms  and  discuss  much  of  the  theory  of  economic 
analysis  as  related  to  intensive  forest  management. 


133 


A.   Procedures 

Complete  all  eight  card  format  sections  of  the  IVST  input  forms  (see 
p.  141-142): 

Steps  Per  Input  Card 
Card  No. 

1.  Study  Identification:  Alphanumeric:  1-72  Characters. 
Select  a  unique  name  for  each  individual  study. 

2.  Problem  Identification:  Alphanumeric:  1-72  Characters. 
Select  a  unique  name  or  number  for  each  individual  problem 
in  your  study. 

3a.   Beginning  Interest  Rate:  NN.NNN:  Columns  5-10  Inclusive. 
Select  the  lowest  interest  rate  to  be  tested,  which  may 
be  a  negative  number  for  subsidized  operations. 

3b.   Ending  Interest  Rate:  NN.NNN:  Columns  15-20  Inclusive. 
Select  the  highest  interest  rate  to  be  tested. 

3c.   Interest  Rate  Increment:  NN.NNNNN:  Columns  23-30  Inclusive. 
Select  the  increments  between  the  lowest  and  highest  rates 
to  be  tested.   With  an  increment  rate  of  one  percent,  a 
beginning  rate  of  00.000,  and  an  ending  rate  of  00.010,  11 
tests  will  be  performed  for  this  problem. 

3d.   Number  of  Alternatives:   NN:   Columns  39-40. 

Up  to  20  combinations  of  inputs  may  be  listed  under  Step  7. 
Record  the  number  of  subproblems  developed. 

3e.   Initial  Cost  or  Return:   N:   Column  50. 

Record  the  code  for  "yes"  or  "no"  depending  on  whether  costs 
or  returns  scheduled  for  Step  7  occur  at  the  beginning  or 
end  of  the  investment  period. 

3f .   Discount  Cost  or  Returns:   N:   Column  60. 

Record  the  code  for  "yes"  or  "no"  depending  on  whether  costs 
or  returns  are  to  be  discounted  back  to  the  beginning  of  the 
investment  period. 

4.    Names  of  Alternatives:  AN:  Columns  1-40,  4  Lines. 

Draft  a  one-to-eight   digit  name  for  each  of  the  subproblems 
recorded  under  Step  7.   A  maximum  of  20  subproblems  can  be 
developed  under  each  problem  name. 

5a.   Problem  Number:  AN:  Columns  7-10  Inclusive. 


Pick  a  one-to-four  digit  problem  number  which  refers  back  to 
Step  2  for  problem  identification. 
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5b.   Type  of  Calculation:   N:   Column  20. 

Insert  the  code  for  either  a  terminable  or  perpetual  series 
of  repeatable  investments. 

5c.   Investment  Criterion:  N:   Column  30. 

Insert  the  code  for  the  investment  criteria  desired,  i.e., 
(1)  internal  rate  of  return,  (2)  benefit/cost  ratio  and 
present  worth,  or  (3)  all  three  criteria. 

5d.   Length  of  Period,  Years:  NN:   Columns  39-40. 

Record  the  length  of  the  investment  period  for  computational 
purposes.   Nearly  all  investments  are  based  on  a  one-year 
computational  period. 

5e.   Maximum  Number  of  Years  in  Series:   NNN:   Columns  48-50. 
Record  the  maximum  length  of  the  subproblem  investment 
series  cited  in  Steps  4,  6,  and  7. 

6.    Number  of  Years  in  Investment  Series  For  Each  Alternative: 
NNN:   20  Segments  of  3  Columns  Each. 

Each  of  the  subproblems  may  have  a  different  length  of 
investment  period.   All  subproblems  must  be  either 
terminable  or  perpetual  as  indicated  by  5b. 

7a.   Cost  or  Return  for  Each  Year:   $NNNNNNNN.NN:   Columns  5-15 
Inclusive. 


List  all  costs  incurred  before  entering  incomes.   Costs  may 
be  incurred  at  the  beginning  or  end  of  the  annual  or 
periodic  length  of  the  period  selected.   Correlate  this  item 
with  3e  or  3f  and  5d.   Costs  may  be  either  positive  or 
negative  values  indicating  actual  cost  or  costs  foregone  in 
the  subproblem.   Next,  list  all  incomes  anticipated. 
Incomes  may  also  be  received  at  the  beginning  or  end  of  the 
investment  period  and  may  be  positive  or  negative  figures. 
Use  as  many  Page  2's  of  the  form  as  is  necessary  to  complete 
the  problem. 

7b.   Begin  in  Year:   NNN:   Columns  23-25. 

Indicate  the  number  of  the  year  in  which  the  cost  is 
incurred  or  in  which  the  income  is  received. 

7c.   End  in  Year:   NNN:   Columns  33-35. 

Record  the  number  of  the  ending  year  in  which  the  cost  or 
income  occurs.   A  reforestation  cost,  for  example,  would  be 
an  initial  cost  that  would  both  begin  and  end  in  Year  1. 
Protection  costs  would  begin  in  Year  1  and  occur  annually  to 
Year  80  for  an  80-year  rotation  period.   A  perpetual  series 
of  80-year  rotations  would  be  indicated  by  coding  a  "1"  in 
Step  5b. 
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7d.   Last  Entry:   N:   Column  45. 

Code  a  "0"  in  Column  45  for  all  costs  except  the  last.   Code 
a  "1"  for  the  last  entry  line  for  the  costs  incurred.   This 
notifies  the  computer  program  that  the  next  line  entry  will 
be  an  income  item.   Code  the  incomes  listed  in  the  sa 
manner  as  designated  for  costs.   Upon  finding  a  "1"  in  the 
income  column,  the  computer  program  is  instructed  to  start  a 
new  subproblem  or  to  end  the  problem. 

8.    End  of  Problem:   998  or  999:   Columns  1  through  3  Inclusive. 

Record  "999"  in  Columns  1  through  3  to  end  the  problem  and 
terminate  the  computer  program.   If  a  project  requires  a 
study  of  25  subproblems,  it  must  be  divided  int 
separate  problems.   A  second  set  of  forms,   completely 
filled  out,  must  then  be  prepared  for  the  five  subprobl* 
that  could  not  be  included  on  the  first  set  of  forms.  In 
this  case,  code  a  "998"  in  Columns  1  through  3,  then  the 
computer  program  will  read  the  second  problem  and  continue 
it  to  completion. 


B.   CRUN  Listing  and  Job  Control  Language 

-LIST  RUNL270 

//#*NULL 

OLD  A185/JCL/EXL270.R 

SYST 

EDIT  CASE 

$*$MARK 

$*$MARK 

RS:/IIIII/ 

$*$USER=  ENTER  USER  IDENTIFICATION. 

$*$NULL 

RS:/DDDDD/ 

$*$USER=  ENTER  CATALOG  STRING  OF  DATA  FILE, 

$*$NULL 

COUT  NULL 

RUN 

COUT 


*0LD  A185/JCL/EXL270 

<50>FILE  EXL270  —  PERMISSION  NOT  GRANTED 

*0LD  A185/JCL/EXL270,R 

*LIST 
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#N,J 
$:IDENT:IIIII 

$: OPT ION: FORTRAN 

$: SELECT : A134/OBJ/L270OBJ 

$: EXECUTE 

$:LIMITS: ,35K 

$:PRMFL:05,R,S,DDDDD 

$: END JOB 


C.   Data  Loading 


Data  from  the  completed  IVST  forms  may  be  keypunched  onto  a  key-tape 
by  the  Data  Entry  Branch.   This  key-tape  must  then  be  loaded  into  the 
Users  UMC  File. 

Data  from  a  completed  set  of  IVST  forms  may  also  be  entered  directly 
into  the  Users  UMC  File  through  a  remote  terminal. 

1.  Use  the  A134/L0ADDATA  subroutine  to  load-key  tape  data  into 
your  user  file.   Refer  to  Section  II,  B,  Time  Sharing, 
/LOADDATA  for  the  procedure. 

2.  Use  the  Save  or  Resave  command  to  enter  the  contents  of  the 
current  file  onto  your  permanent  disc  file.   Convert  the 
file  from  ASCII,  Conversational  Language,  to  BCD,  Machine 
Language.   Refer  to  Section  II,  D.  for  the  procedure  on 
using  the  CONVERT  subsystem.   Record  the  name  of  the  data 
file  on  the  IVST  input  forms  to  prevent  future  mixups. 

3.  After  the  input  data  is  loaded  but  before  you  begin  program 
execution,  check  the  printer  settings.   Increase  the  printer 
line  to  140  characters  in  length. 


D.   Program  Execution 

To  execute  the  IVST  Program  (L270),  respond  to  the  terminal  queries  as 
indicated : 

Steps 

1.  When  an  asterisk  appears,  enter  the  command  "A134/RUNL270. " 

2.  The  terminal  will  then  print  a  request  for  user  identifica- 
tion; i.e.,  ENTER  USER  IDENTIFICATION. 

Key  in  your  user  identification  code  and  punch  the  carriage 
return  key. 
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Users  outside  of  the  Denver  Service  Center  who  direct  thi 
reports  to  the  central  mainline  computer  high-speed  printer 
are  requested  to  enter  their  Mail  Code  and  Name  on  the  SID-. 
card  along  with  their  UMC,  i.e., 

$IDENT   UMC,  MAIL  CODE  NAME 
Example:   $IDENT  A999,  UT-930  JANE  DOE 

This  procedure  will  insure  that  the  listing  will  be  sent 
the  user  in  a  timely  manner.   All  listings  carrying  a  mail 
code  will  be  sent  out  as  priority  mail. 

The  first  nine  spaces  following  the  comma  in  the  identifica- 
tion card  will  be  printed  as  the  banner.   The  banner  consi 
of  one-inch  high  letters  printed  on  the  first  page  of  each 
report. 

3.  Upon  entering  your  identification  codes  into  the  program,  a 
second  message  request  will  appear: 

ENTER  CATALOG  STRING  OF  DATA  FILE. 

Key  in  the  name  of  the  data  file  that  contains  IVST  input 
data  and  hit  the  carriage  return  key.   The  program  should  now 
go  to  a  normal  termination. 

4.  Input  data  has  been  copied  from  IVST  Forms,  Figures  1  and 
and  stored  in  catalog  file  string  A134/DATA/DATA4.   The 
following  shows  the  action  to  this  point. 

*A134/RUNL270,R 

ENTER  USER  IDENTIFICATION. A134 , D45U-FJHOK 
ENTER  CATALOG  STRING  OF  DATA  FILE. Al 34 /DATA/DAT 

$:PRMFL:0  5,R,S,A134/DATA/DATA4 

5.  When  the  -  (dash)  prompt  appears,  the  user  may  (1)  monitor 
the  job  execution  to  completion,  (2)  direct  the  report  to 
the  Mainline  Printer,  or  (3)  direct  the  report  to  be  printed 
at  the  remote  terminal. 

a.   To  monitor  the  job  execution,  enter  "JM      J  the 
"SNUMB"  as  shown  in  the  following: 

-JMON  2890T 

2890T  -01    EXECUTING 

2890T  OUTPUT  WAITING  ID-; J. 

*JM0N  WON'T  MONITOR  JOB  IN  SYOT  OR  SSFILE* 

$  :  PRMFL :  05 ,  R ,  S  ,  A13 4 /DATA/ DATA-* 

138 


• 


b.   Instruct  the  computer  to  print  the  IVST  Report: 

The  JOUT  subsystem  allows  the  user  to  manipulate  the 
output  from  a  batch  job  to  a  printer  or  terminal 
display.   The  JOUT  subsystem  also  transmits  a  status 
message  for  uncompleted  jobs. 

(1)  To  direct  the  job  to  the  Mainline  Printer,  enter 
the  word  "JOUT:  and  the  "SNUMB";  the  word 
FUNCTION?  will  appear.   Type  in  the  command 
DIRECT  ONLINE  or  DIRE  ONL.   The  Mainline  Printer 
at  DSC  will  accept  the  job. 

(2)  To  direct  the  printing  to  the  remote  terminal, 
enter  the  "JOUT"  command  and  "SNUMB."   Enter  the 
word  "LIST"  in  response  to  the  FUNCTION?  prompt. 
The  $$  activity  code  numbers  of  the  job  will  then 
appear  as  shown,  followed  by  the  FUNCTION?  prompt 
again. 

-JOUT  2890T 

FUNCTION?  LIST 

PLEASE  DIRECT,  RELEASE,  OR  HOLD  BEFORE  EXIT 

FUNCTION?LIST 

ACTIVITY  1 

REPORT  CODES 

$$ 
74 
06 

FUNCTION? 

Enter  the  command  "EPRINT"  and  the  report  code, 
which  is  "74"  in  the  example  above  (EPRINT  74). 
The  terminal  will  then  print  a  listing  of  the 
subprograms  used  in  making  the  IVST  computation. 

Upon  the  completion  of  printing  Activity  Report 
74,  the  word  FUNCTION?  will  appear  again.   In 
response  to  the  FUNCTION?  request:  enter  the 
command  "EPRINT  06"  to  instruct  the  computer  to 
print  the  remaining  part  of  IVST  report  at  your 
remote  terminal. 
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E.   Sample  Report  (Printout) 

A  sample  set  of  completed  1VST  Forms,  Figures  1  and  2,  follow  on  pa 
141  and  142  for  your  inspection.   The  problem  listed  shows  the 
allowable  cut  effect  of  precommercial  thinning  a  dense  lodgepole  pine 
stand.   Please  refer  to  BLM  Technical  Note  309  for  the  me\ 
used  in  computing  the  allowable  cut  effect  (AOh;. 


Sample  Inputs 


Cost  to  thin  one  acre 
Increased  yield 
Investment  period 
Maximum  ACE  (Annual) 
Effective  ACE 

Cost  to  sell  mature  timber 
Income  from  mature  timber 
(No  other  costs  or  incomes 


$100.00 
13,800  Bd.  Ft, 
80  years 
172.5  Bd.  Ft. 
50% 

S15.00/MBF 
S100.00/MBF 
included) 


The  IVST  report  shows: 

1.  Annual  costs  and  returns, 

2.  Present  net  worth  of  all  benefits  and  costs, 

3.  Present  net  worth  and  benefit/cost  ratius  for  the 
various  interest  rates  selected,  and 

4.  Internal  rate  of  return,  if  within  the  selected 
range  of  interest  rates. 


Two  copies  of  reports  (printouts)  were  developed  by  executing  program 
L270  using  data  shown  on  copies  of  the  input  forms,  Figures  1  and  2. 
The  only  variation  between  these  copies  is  a  change  in  input  code  from 
YES  to  NO  concerning  Card  #3,  Column  50,  Initial  Cost  or  Returns. 

These  computer  reports  have  been  microfilmed.   Copies  of  microfiche 
cards  may  be  obtained  by  placing  a  request  through  the  Division  of 
Special  Studies,  Denver  Service  Center,  as  shown  on  the  Interior  title 
page. 
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